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Alors quoi, 
les fanzineux, 

on s'endort sur 

ses lauriers ? On 

ne veut pas sortir de 
chez soi ? On reste 
près de la télé à regarder 
le Club Dorothée et à se 
gaver d’Ultraman ? Où est- 
il l’heureux temps qui 
voyait chaque jour ou 
presque une avalanche 
de fanzines déferler 
sur mon bureau qui 
n’en demandait pas 
temps. Bref, il faut 
un peu se remuer 
pour m'envoyer 

les nouveaux 
numéros aussi 
bien sur dis- 
que que sur 
papier. 
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MICROSOFT 


(esse À Je crois déjà vous avoir causé de ce fanzine 
N dans un numéro antérieur mais le doute subsis- 
tant, je préfére ne pas m'abstenir. Donc Micro- 
soft prend le parti de la non-PAO (peut-être par 
obligation d'ailleurs). 
La fabrication utilise les services d'un PCW 9512, 
un Amstrad quand même, et se compose de 
plusieurs pages recto-Verso au nombre de 15. 
Les tests de jeux sont assez imposants, par rap- 
port aux concurrents bien sûr et le reste de ce 
numéro est consacré à un dossier sur Luc Bes- 
son, à un sondage et à diverses autres choses 
que vous pourrez bien découvrir par vous- 
même. 
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C. Duguy 
Bel-égo 
44850 St Mars du Desert 
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AMAZING 
FANZINE 


Encore un fanzine que vous devez 
déjà connaitre mais comme les nou- 
veautés ne se bousculent pas, il ne 
faut pas faire la fine bouche. On re- 
marque tout de suite la compacité 
des textes et le délire ambiant qui 
ne facilitent pas toujours la lecture. 
Mais heureusement, chacun y 
trouve son bonheur : des tests de 
jeux, de démos (c'est à la mode), 
des bidouilles hard, des cours 
d'Assembleur, de Basic et des 
listings. 


Thierry Prouteau 

71 bis, rue Parmentier 
49000 Angers 

ou 

Emmanuel Brillot 

12, square des Calleides 
49000 Angers. 


SOS 
IFANZINES 


Attention, fanzine sur disque ! Et à mon avis, il est 
plutôt bon. La page de présentation est ornée 
d'une digit sobre et propre. 

Chaque rubrique donne accés à un (trop 
souvent d'ailleurs) ou plusieurs écrans. Il est 
vrai que les pages présentées sont parfois 
superbes avec des écrans en Overscan et 
des rasters qui défilent. 

Le seul regret donc concerne le man- 
que de pages (je sais, c'est long à fa- 
briquer mais on en veut toujours plus et 
il y a deux faces sur une disquette). 
Sinon tentez l'expérience, ça vaut le 
coup d'œil. 


































SOS fanzines 
2, Allée de Verdun 
93420 Villepinte 


_ LE PETIT 
\, ELECTRO- 
ILLUSTRE 


A titre spécial, contenu spécial. Bien 
que vous puissiez trouver dans ces pa- 
ges quelques trucs pour des jeux, le res- 
te du canard est consacré au Basic. Mais 
attention des programmes homéopathi- 
ques : c'est-à-dire qui ne dépassent pas 
10 lignes. Certes l'intention est louable 
mais malgré tout on ne peut pas tout faire 
avec le Basic et l’ Assembleur est irrempla- 
çable pour certaines applications. Quand 
à s'abonner aux fanzines à la place des 
revues «du commerce» (voir édito du no 2), 
c'est sans doute une bonne idée mais quel- 
le est la durée de vie moyenne d'un fanzi- 
ne ? 
Dernière petite chose, le programme 255 PA- 
PER différents ne permet pas d'obtenir 
d'autres couleurs que les 16 normalement 
présentes (à comparer avec les 27 réellement 
affichables simultanément par un programme 
en Assembleur) 





Jacques de Lamar 
3, avenue des Cosmonautes 
45400 Fleury les Aubrais 
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Encore un fanzine sur disque avec 
| Disque: 


quantité de pages en Overscan et 
quelques effets graphiques. En re- 
vanche les textes n'occupent pas 
- Le une place énorme et on peut faire 
LA REDRE. ollu.7". 7: D URT le même reproche que pour SOS, 
: les rubriques d'une seule page sont 
beaucoup trop courtes. 
Enfin c'est plutôt intéressant à re- 
garder et à écouter Car la musique 
est omni-présente (comme pour 
SOS d'ailleurs). Pendant que j'y suis, 
j'en profite pour remercier H. Mon- 
chôâtre qui m'a envoyé ce fanzine. 
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Génération CPC 
17, rue d'Arras 
62120 Aïire sur la lys 


THE 
TWILIGHT 
STRAD 


On termine avec un nouveau, qui 
ne l'est pas totalement d'ailleurs, 
car les auteurs ne sont autre que 
ceux qui avaient déjà commis AM- 
SING-MAG. Ce numéro 1 semble 
mieux «fini» que le fanzine précé- 
dent. Mais ce n'est pas encore tout 
à fait ça. Le choix des couleurs en 
mode 1 n'est pas toujours réussi. Le 
prochain numéro devrait être 







meilleur, je pense. 
D'autant que les 


digits sont réussies —.. 
et que la présence | = 

des démos est un plus (j'adore les dé- 
mos). 


È Fa . Alexis Henaux 
T A À : 15, rue des Narcisses 
21300 Chenove 
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Au4i1RelUr74 ES SIC 
CONSOLES MEGADRIVE À GAG 


COLLE TOP HITS 
Anar var Smmge "7" ADVANCED DEST SM 162/228 Quand les pr IX t si 
+ Live and die +licence to Lai HS SAGE so fl 


APPRENTICE (Es 
+ Stunt car racer + protennis tour PET 97/142 ADES DEBUGG 

LES FANATIQUES 230 ART GUERRE 242 . 
Crafton + fire and forget BACK THE GOLD AGE . 97/142 ADVANCED OCP ART STUDIO CEDIC-NATHAN 

+ Titan +Superski + Capt Blood +GP  BACK TO THE FUTURE 2 105/142 APPRENDRE L'ASSEMBLEUR 295 ALLEMAND CONFIRME 

FESTIVALIA 182/192 BADLANDS 97/142 AUTOFORMATION BASIC . 290 ALLEMAND DEBUTANT 

Great courts + Trivial poursuit BAT … 242 CARTOUCHE BASIC AMSTRA 65 ANGLAIS CONFIRME 4/3e 

+S.Wonderboy +P47 + Action fighter  BATTLE COMMAND 105/152 CONTACT .. 380 ANGLAIS DEBUTANT 6/5e. 

BIG BANG 2 128/182 BIG RUN … 97/142 COURS DE SOLFEGE . 195 ANGLAIS TOP NIVEAU 2/1 Rj | 1 VE AU 
Rick Dangerous + Chicago 142/192 COURS DE SOLFEGE . 195 APPRENDS MOI A COMPTER M/CP 220 

+H. Patrol + Aspher + Beyond Ice P. 145/192 DESSIN TECHNIQUE 6128 . 375 APPRENDS MOI À ECRIRE CP/CE.. 220 


DESSIN TECHNIQUE TURBO 6128. 715 APPRENDS MOI A LIRE M/CP . 
nee ane | ouyernao GR OMNATEUR 
Hi SiRnRe— FE oPa mien mou voie |‘*AMSTRAD 6128 PLUS COULEUR 3990 F 
CE . . 245 ECRIRE SS FAUTES V.2 6/: 464 
Manor de Morerile + Troubadour — CREATURES . 273 GESTION DE FICHIER 6128 290 FRANÇAIS REUSSITE 3e AMSTRAD PLUS COULEUR 2850 F 


+ Rody et Mastico DAMES SIMULA 215 GRAPHEUR . 75 FRANÇAIS REUSSITE 4e 1*+ 25 jeux gratuits + ifique hou: 
CRAIY STARS 142/192 DEFENDER OF THE CR 172 HERCULE 2. 395 FRANÇAIS REUSSITE 5e jeux g atuits + 1 magnifique sse 


Crazy cars2 + Wildstreets DICK TRACY 142/192 HOUSE MUSI 350 FRANÇAIS REUSSITE 6e (CONSOLE AMSTRAD GX4000 + 1 Jeu 975 F 


+ Cauldron 2 + Gazza DISC . 145/192 IMPRESSION 240 J'APPRENDS A ECRIRE M, 
ONE, TWO 242 DRAGON BREED . 97/142 IMPRIM'IMAG 280 J'APPRENDS À LIRE M/CP. 






















































Fire and forget 2 + One ESWAT 105/152 INTEGRE (L') 1 . 425 J'APPRENDS À OBSERVER M/CP 

+ Crazy cars 2 + Barbarian 2 EXTERMINATOR 125/162 INTERPRETE 2 280 J'APPRENDS LES NOMBRES M/CP. NES 
LES CHEVALIERS 142/102 EXTREME . 1258/1162 RENTEL LE SERVEUR CPC 570 LABYRINTHE D'ORTHOPHUS BARBARIAN 
Dynasty Wars + Strider + Black Tiger F15 STRIKE EAGLI 109/169 LA SOLUTION. 595 LABYRINTHE D'ERRARE … BATMAN 






Ghouls N'Ghoust F16 COMBAT PILOT 142/192 MAXAM K7 ou disc 275/299 LABYRINTHE aux CENT CALCULS CHASE HO . 
SEGA ARCADE TURBO. 142/102 FUGITIF … . 192 MAXAM 399 LABYRINTHE aux MILLE CALCULS. COUGAR FORCE 
Turbo outrun + Superwonderboy GAUNTLET 3 395 LABYRINTHE ANGLOMANIA COPTER 271. 
Crackdown + Enduro Racer GRAND PRIX 500CC 2 . 192 MEPHIST 205 LABYRINTHE ANGLOMANIA CRAZY CARS 
COLLECTION N° 2 100/230 GREMLINS 2 97 1142 MULTIFACE 2 +LE COPIEUR. 525 LABYRINTHE LEXICOS . DICK TRACY 
12 Super Titres GOLDENAXE 105/142 re 2 - 6128 PLUS 575 LABYRINTHE DES PHARAON EPICS WORLD OF GAMES 
STARS D'HOLLYWOOD.——.. 142/219 GUNBOAT ATGRAPH …. 350 LANGUE FRANÇAISE CE 1 FIRE AND FORGET 2. 
Batman +Indy Action + Ghostbusters 2 _GUNSHIP 129 LANGUE FRANÇAISE CE2 RAC 
jobocop HAGAR RAMDOS . 279 LANGUE FRANÇAISE CM1 MORT MGR 
142/192 HELTER SKELTER RODOS 299 LANGUE FRANÇAISE CM2 MYSTICAL. 
IRON LORD . . 220 ROMDOS . 299 LANGUE FRANÇAISE 6E P* 
gon IVANOE.. 349 LANGUE FRANÇAISE 5E 
10 JEUX SPECACULAIRES. 142/192 JUDGE D! 545 LANGUE FRANÇAISE 4E 
Impossamole + Sidearms + Streetfighter KICK OFF 2. 675 LANGUE FRANÇAISE 3E 
Emotion + Foot Y2 +Hot Shots + Skweek LA SECTE NOI 475 NATHAN MATHS 3€ 
Road Runner +Butcherhill +Heavy Metal LINE OF FIRE /349 NATHAN MATHS 4E 
LES GHANTS DU SPORT... 192/280 LODE RUNNER 145/189 PROTEXT rom 399 NATHAN MATHS 6/ 
Kick off + Great courts + TT Race LOTUS ESPRIT TURBO 105/152 PAGE PUBLI 325 MATHS SUCCES 5/6 AI 
Foot Manager 2 +Emelyn Hugues METAL MASTER . 145/192 PENTEL 670 MATHS SUCCES CM . 
Bobslelgh + 3D Grand Prix MIDNIGHT RESISTANCE PSYCHO 185 MATHS SUCCES 3e 
LES BATTANTS 182/238 MOKOWE . ; 349 MATHS SUCCES 4e 
Rick Dangerous + Savage + Commando MOON BLASTER . « 425 MATHS SUCCES 5e 
Navy Moves +1. Warriors +F. Bruno Boxe MYSTICAL 145/192 TRAFFIC 189 MATHS SUCCES 6e 
LES DIEUX DU CIEL 192/289 NARC … 105/152 TRAFFIC EMISSION 
Chuck Yeager +Ace 182 +ATF NARCO POLICE TRAFFIC SWL 
Stricke Force Harrier + Tomahawk NIGHT BREED . 
CLAP CINE 192/280 NIGHT SHIFT ; VECT. 
Ghostbuster + Allen + Wonderboy NEW YORK WARRIOR 7/1 325 MICRO BAC HISTOIRE 1/1Ter D accessoires | CABLES 
Back the future + Quartet +Eydolon +  OUTBOARD . ; » 295 MICRO BREVET FRANÇAIS 
C. Chaplin + Tuer n'est pas Jouer + . 192/242 PR 355 MICRO BREVET HISTOIRE . ADAPT.NOUVEAU BUS CPC 
Permis de tuer + Vivre et laisser mourir . 152/192 LE TAROMANCIEN 290 MICRO BREVET GEOGRAPHI CASSETTE D'AZIMUTAGE 119 DOUBLEUR JOYSTICK 
WHEELS OF FIRE 182/242 PINBALL MAGIC . . 145/189 GRAPHOLOG .. 690 NATHAN FRANÇAIS CP/CE1 . 189 DOUBLEUR DE BU 


Turbo out Run + Chase HQ . 169 MICRO CLUB 95 F NATHAN ECOLE FRANÇAIS CE2 . 169 CABLE IMPRIMANTE. 
Hard Drivin + Powerdrift NATHAN ECOLE FRANÇAIS CM1 . 159 RALLONGE ECRAN/CLAVIER 
15 MEGASTAR Ê NATHAN ECOLE FRANÇAIS CM2 . 


289 PANZA KICK BOXING 
289 PLOTTING . 
289 PRO TENNIS TOUR 




















289 SHADOW WARRIOR . 
289 SPIDERMAN 
289 SPY WHO LOVED ME 
289 STUN RUNNER 
289 SWITCH BLADE. 
TENNIS CUP . 
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LECTEUR DDI1 pour 464 1395 
LECTEUR FD1 2e LECTEUR 6128 1295 






IMPRIMANTE DMP3160 + housse 2290 
LES STARS D'HOLLYWOOD Disc 192 
LES JUSTICIERS N° 2 Disc 

Dans la limite des stocks disponibles 




















































su IPRIM. 80 Col. 149 CABLE EXTENSION JOYSTIC 
Navy moves + Exolon +Commando PRINCE OF s NATHAN ECOLE MATHS CP/CE1 PPORT -14" 139 CABLE EXTENSION PO 
Battle valley + Bombjack + AlrWotf + PUZZNIK . : * ARKANOÏD 1 +2 NATHAN ECOLE MATHS CE2 MOUSE MAT (tapis) CABLE FD1/DDI1..… 
1942 RICK DANGI J - GAUNTLET 1 +2 NATHAN ECOLE MATHS CM1 ETIQUETTES DISC 3" LES 100 CABLE MAGNETO CASSETTE. 
Scoobldoo + Ghost Gobline + Saboteur  ROBOCOP II : OUT RUN + ROAD BLASTER NATHAN ECOLE MATHS CM2 ETIQUETTES 89x23 LES 500. CABLE MINITEL CPC. 
Battle ship + Bati + Buggy 2 + : : END.RACER +SUPERHANG ON TRAIN EXPRESS DE DINGO CABLE PERITEL CPC 


+ IK++YIE AR KUNG FU 
Crépuscule Naja + Tallsman d'Oeiris : ALLEMAND PRIMAIRE CABLE GX4000/CPC 
LES FOUS DU VOLANT — 178/228 SAINT DRAGON : GRYSOR + GREEN BERET ANGLAIS PRIMAIRE QUE RALLONGE (Al#idéo 4 


- CALIFORNIA + WINTER GAMES 
AP.B. +B Boy +TT SAUVEZ YURK s ANGLAIS 4/3e 
uggy Boy Racer PERIPHERIQUES 


: CMZEN 120D 
Actionfighter + Aspar Grand Prix ! RS ON REA TON à AOAD_ CALCUL RAPIDE CIMZEN SMIFT 24/9 

SCANNER DART DISC ou K7 
DIGITALISEUR VIDI ……. 


+ Buggy 2 ; DECLIC LECTURE . 
MONDE DES MERVEILLES . 148/102 SHERMAN M4 . *165/225 N°10 - CRAZY CARS +SUPER SPRINT EDUC. MATERNELLE DUP 2000/2100, 

LECTEUR CASSETTE + CABLE . 
MULTIFACE 2+LE COPIEUR 


N°11 - BUB.BOBBLE + FLYINGSHARK 

New Zeland Story + Rainbow lsland  SHUFFLEPUCK CAFE ………. 145/192 EDUC. MATERNELLE 

Super Wonderboy +Bubble Bobble  SILENT SERVICE . 16N 12: ACEOPACES + INPILTRATOR | ESPAGNOL PRIMAIRE 

LES FOUS DU FOOT 178/228 SIM CTIY . ND GE NEC 

Kick off + Foot Manager 2 SLIDERS ’ SYNTHE.VOCAL TMPI DISC/K7 …. 

Figthing soccer + Emelyn Hugues STAR CONTROL . à SYNTHE.VOCAL TMPI4#HP DISC/K7. 625 
7 LOGICIEL Educt. vocaux … 195 
DMP 3180 + HOUSSE 
EXT. MEMOIRE 64K/484 

































LES JUSTICIERS 2 148/102 STRATEGO 
Ghostbusters 2 +Cabal +0. Thunderboit STRIDER 2 
SIX SUPER CARS 138/218 STUNRUNNER . STAR NL 10 
Nigel Mansell's, 3D Grand Prix SUBBUTEO ; : é San LC 0 EXT. MEMOIRE 256K/464. 
Overlander, Asphalt, Buggy2, Fury SUPERCARS x 2 STAR LC10 c EXT. MEMOIRE 256K/612 
LA COLLECTION (18 jeux) - 169/230 SUPER MONACO GP s TR RUONER NET MATHS 2E CYCLE 2 CRAYON OPTIQUE Cassette 
Arkanold + Batman + Rambo +Top Gun SUPER OFF ROAD RACER..... a EN OCROSS MATHS 3E tous les rubans NB par 3 = 144 F CRAYON OPTIQUE Disquette 290 
Crazy cars + Match day + Match Point... : NEMESIS PE = 
TARC Fer sr SUPER PROMO 
TEENAGE 
YSTICKS P | : 159/189 ADVAN 
TR ETIQUETTES DISC 3" LES 100. AO CED OCP ART STUDIO . 245 
DOUBLEUR DE JOYSTICK. LUTION texromar : Datamar : CAtCOM . 575 
ER ARE DURE ET OUEIES Dee 2807 LU 100 "0 DES MANS CUS Mo)irlol elle flo) SES] 22151071210 LP 
TURRICAN 2 92/1682 ‘ DESTINAT. MATHS CM1/2. LECTEUR CASSETTE + CABLE . 245 
ULTIMATE GOLF , 15/72 ET CE DESTINATION MATHS 6/5e Leone) A'AHRARE 
UN SQUADRON . 105/152 4 SAISONS DE L'ECRIT CE/CM 
QUICKJOY TURBO 2 WRATH OF THE DEMON 97/142 Housse complète clavier+écran 4 SAISONS DE L'ECRIT 6/3e 






















QUICKIOY 3 SUPERCHARGER WELLTRIS 42/192 HOUSE rs = 99 SECRET ENGLAND 6/5e sr | 
SE RO seance PH annee 
QUICKJOY IR INFRAROUGE LL HOUSSE 464 . 87 DEUTSCHES GEHEIMNIS 6/5e . 3" CF2 175F 315F 
QUICKJOY VI JETFIGHTER HOUSSE 6128 87 DEUTSCHES GEHEIMNIS 4/34 3” 1/2 DFDD | 69F | 
Ë AUTOFORM.BASIC + DISC .. . 149 HOUSSE DISC FD1/DDI1 55 HAMSTERS EN FOLIE … 
BIEN DEBUTER 6128 PLUS 78 HOUSSE DMP 2000/2160. 79 5” 1/4 DFDD 
LIVRE LANGAGE MACHINE . 129 HOUSSE DMP 3000/3160 . 79 AXE ELLES 


DE 102 PROGRAMME CPC. . 135 HOUSSE PCW 8256/8512. 29 * Disquettes certifiées 100% garantie à vie. 
AMSTRAD EN FAMILLE . 135 HOUSSE CITIZEN 120 D 79 BOITIER DS4OLA : 30x3" & Livrées avec enveloppes +étiquettes 











KONIX SPEED KING 109 
À BIEN DEBUTER CPC... 99 HOUSSE STAR NL 10 79 BOITIER JSY 48 : 48x3" 99 
KONIX SPEED KING A! 125 . 9 
en AMSTRAC : 140 HOUSSE STAR LC 10 . er EE 5 
LIVRE DU BASIC 6128 PLUS... 99 HOUSSE SMM DH pi BOITIER DS100L : 100x5.257 149 BOITIER PLASTIQUE 3” ou 3.50 30 F Les dix 

















NOUS LIVRONS TOUJOURS LES DERNIERES VERSIONS z R 
BON DE COMMANDE £YPR£ESS à retourner à DS JESSICO. - B.P 693 - 06012 NICE CEDEX 


GAGNEZ DU TEMPS | Commandez par > 99.51,61,30 - 93.97.22.00 
O Je joins un chèque ou mandat-lettre 


Je paie à réception au facteur 
D Je paie par carte bleue et je complète les 2 lignes ci-dessous 

















care bieue 








MARS 91 


date d'expiration 

















PORT : LOGICIEL JEUX 20 F NOM PRENOM 
IMPRIMANTES 60 F N° ET RUE 
ORDINATEUR 120 F VILLE CODE POSTAL 


UTILITAIRES + ACCESSOIRES 25.F 


DOM TOM + ETRANGER + 60 F 
PAIEMENT ETRANGER EXCLUSIVEMENT PAR MANDAT INTERNATIONAL Rates 


GARANTIE 1 AN SUR LES LOGICIELS precisez votre ordinateur | | DISC [1] K7 [] 


dr = po de 
SIGNATURE OBLIGATOIRE 
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PIN 


Bonjour à tous : les 
débutants comme les 
initiés, vont pouvoir 


télécharger sur le 36-15. 


Arcades. Pour cela, il 
suffit de posséder un 
câble Arcades et le 
logiciel correspondant. 
Vous pouvez 


commander câble et/ou 


logiciel grâce au bon 

qui se trouve quelque 

part dans les pages de 
CPC Infos. 





ttention ce câble et ce logji- 
ciel sont les seuls capables 


d'utiliser le protocole du ser- 


‘ veur. Pas la peine d'essayer le câ- 


ble X «qui-marche-pourtant-très- 
bien-avec-le-serveur-Ycharge» ou le 
logiciel Truc qui télécharge sur SM- 
Chose. 

Lorsque vous êtes en possession de 
ce petit matériel, il ne vous reste plus 
qu'à tester votre matériel. En effet, 
il arrive qu'avec certains Minitels, 
une fois le câble connecté, on ne 
puisse plus taper le code ARCADES, 
l'écran se remplissant de codes bi- 
zarres. La seule solution alors est de 
débrancher le câble et de ne le 
raccorder qu'au dernier moment. 
Sinon, vous procédez comme suit : 
vous allumez l'ordinateur et vous 
faites RUN «PRG 1» avec la disquette 
de téléchargement dans le lecteur 
(si vous devez faire RUN «CPC c'est 
que vous possédez l'ancienne ver- 
sion). Vous allez voir apparaître un 
écran avec deux choix : Téléchar- 


TELECHARGEMENT 





gement ou Mode d'emploi, choisis- 
sez Téléchargement et vous aurez 
ensuite la possibilité de définir le 
lecteur destination (1 où 2). Puis la 
grille de téléchargement s'offrira à 
vos yeux éblouis. Bon, maintenant 
vous passez sur le minitel : 36-15 AR- 
CADES. Ensuite sélection des options 
(choix de l'ordinateur et type 
d'opération à effectuer). Indiquez 
le numéro ou le nom du program- 
me à télécharger. En effet, depuis 
peu, il est possible de télécharger 
un fichier par son nom, ce qui per- 
met une certaine souplesse comme 
nous le verrons plus loin. Le minitel 
affiche ensuite le nombre total de 
Ko et le temps approximatif de té- 
léchargement (environ 2 Ko par mi- 
nute). 

Le message «Lancez Arcades sur le 
micro» doit devenir pour vous, le si- 
gnal pour le départ du télécharge- 
ment. Vous n'avez alors qu'à ap- 
puyer sur la barre d'espace (ou 
brancher le cordon puis appuyer sur 


espace) pour commencer le télé- 
chargement. Normalement, une 
barre de caractères doit s'afficher 
en haut de l'écran du Minitel et les 
numéros de blocs, noms de pro- 
grammes et autres indications de 
téléchargement doivent s'afficher 
sur le CPC. 

Pour le reste, lisez le mode d'emploi 
sur le 36-15 vous devriez y trouver 
ce que vous cherchez. 


LE FICHIER CATA 


Ce fichier est un outil indispensa- 
ble pour le téléchargement. Il est 
composé en fait de deux fichiers : 
CATA. et CATALOG.DOC. Le pre- 
mier contient les explications pour 
imprimer le second. Le tout se dé- 
roule sous CP/M (eh oui, c'est com- 
me ça). 


Ce catalogue est indispensable car 
il contient tous les fichiers présents 
sur le 36-15 avec indication de la 
taille et du numéro de la revue cor- 
respondante (si nécessaire) car 
n'oubliez pas que la plupart des 
programmes d'Arcades ont été pu- 
bliés dans nos revues et que les mo- 
des d'emploi s'y trouvent éventuel- 
lement. 


Le fait de pouvoir télécharger les 
fichiers par leur nom permet d'envi- 
sager le cas des coupures de liaison. 
Si votre téléchargement est coupé, 
iln'est plus nécessaire de reprendre 
à zéro : vous regardez dans le cata- 
logue le nom du fichier qui précé- 
dait la coupure et vous reprenez le 
téléchargement à ce niveaur-là. 

Il faut tout de même savoir que le 
chaînage entre les fichiers ne se fait 
plus alors automatiquement : il fau- 
dra entrer les noms de tous les fi- 
chiers suivants. De même, il n'est 
pas possible de télécharger seul le 
premier fichier appartenant à un 
groupe de fichier car le chaînage 
se fera automatiquement. 

Avec le catalogue, vous pourrez 
ainsi prévoir le temps de téléchar- 
gement et la place à réserver sur 
votre disquette de destination. 

Ce catalogue sera remis à jour à 
chaque nouvel arrivage sur le ser- 
veur. Vous serez tenu au courant 
par la revue et par la date indiquée 
près du fichier CATA. 

En ce qui concerne les fichiers .MDM 
regardez le mode d'emploi sur le 
36-15 Arcades. 


Il est certain que ne paraîtront pas 
tous les mois les paragraphes pré- 
cédents qui sont destinés à «mettre 
en condition» les usagers d'Arcades. 


Arcades contient plus de 450 fichiers 
et il est certainement le serveur, 
non-dédié au jeu, le plus important 
de France. Au fil des mois vous ver- 
rez de nouveaux logiciels. Tous les 2 
mois, il ÿY aura les programmes par- 
rus dans CPC (ce rythme corres- 
pondant à la parution des disquet- 
tes CPC), vous trouverez aussi des 
programmes du Domaine Public. La 
plupart de ces programmes fonc- 
tionnant sous CP/M, il faudra vous 
munir de votre disquette systéme 
(celle livrée avec votre CPC). Il y a 
un autre problème : ces program- 
mes sont tous en Anglais, il faudra 
donc faire un effort de traduction 
pour les utiliser. À moins qu'un lec- 
teur compréhensif ne possède le 
temps nécessaire pour effectuer ces 
traductions, vous ne pourrez comp- 
ter que sur la présentation succinte 
du programme dans le cadre de 
cette rubrique. 

Voici donc les programmes que 
VOUS pourrez trouver en fin de mois 
sur le 36-15 ARCADES : 


LES PROGRAMMES 
DE CPC INFOS 


On commence avec la disquet- 
te 33 comprenant les numéros 27 et 
28 de CPC Infos. La prochaine dis- 
quette sera (exceptionnellement) 
décrite dans la rubrique du mois 
suivant. 


+ PLUMPY, le célèbre jeu qui a posé 
tant de problèmes (ceux-ci sont ré- 
solus dans ce numéro) aux lecteurs. 


+ VIRUS, un autre jeu de Claude Le 
Moullec. Simple, en Basic et bien 
réalisé. 


+ VARIABLES LOCALES, un ensemble 
de RSX permettant d'obtenir la ré- 
cursivité sur votre CPC et en Basic. 


+ ROUTINES DU CCC, 4 routines en 
Assembleur pour différents usages. 


Maintenant les démos, pas tout à 
fait récentes mais quand on aime 
on ne compte pas. Donc remercie- 
ments à tous ceux qui m'ont envoyé 
des démos et particulièrement à 
Gozeur. 





+ GHOST DEMO, il faut être très pa- 
tient pour lire le scroll et ne pas avoir 
de problèmes de vue. 


+ MUDEBI demo. 


+ UGLYDEMO, l'alliance de Digit 
(pour les programmes) et Ugly (pour 
les graphismes) donne une démo 
sympathique, sans grandes innovar- 
tions. 


+ ATOMIC DEMO 2, en trois parties, 
le tout sans débauches graphiques 
ou techniques. 


+ BAD DEMO, rien à voir avec Mi- 
chel. 


+ KREATOR DEMO, un seul écran 
mais bien réalisé. 


e BRAIN WAVE MEGA DEMO, en 
deux parties par le célèbre (sisi) 
Gozeur. 


+ RASTERS DEMO, 4 parties + 1. Les 4 
premières sont de Gozeur et con- 
tiennent pas mal d'effets avec les 
rasters. Il y a aussi la première démo 
de Gladiateur, encourageante pour 
la suite. 


Maintenant les programmes du do- 
maine public sur CPC. Je rappelle 
que ces programmes sont en An- 
glais et que certains nécessitent CP/ 
M ou CP/M+. 


+ EASYDOS-DESKTOP, est un utilitaire 
simulant un environnement graphi- 
que tel celui existant sur ST. 

Vous trouverez donc des icônes 
pour les disquettes, pour la corbeille 
et pour les fichiers exécutables ou 
non. Il est possible d'utiliser une sou- 
ris où les touches du clavier pour 
déplacer le pointeur. Pour cela, il 
faut lancer le fichier CONFIG et sé- 
lectionner le clavier par exemple. 
Les menus déroulants se trouvent en 
haut de l'écran et permettent di- 
verses opérations tels l'affichage 
des fichiers textes où l'obtention 
d'informations sur les fichiers binai- 
res. 

Easydos simule également les sous- 
répertoires où dossiers pour regrour- 
per vos programmes par catégorie 
(il utilise en fait les numéros de 
USER). Pour en savoir plus, il faut lire 
le fichier DESKINFO (Anglais). 

En supplément, vous trouverez deux 
programmes utilisables sous cet en- 
vironnement : un formateur (FOR- 
MAT) et un «dé-effaceur» de fi- 
chiers : OOPS. Ces deux fichiers de- 
vront être installés en USER 1. Les 
noms des dossiers sont placés dans 
USERS.INF 


+ KEYWORD, permet d'avoir à sa 
disposition des instructions Basic ac- 
cessibles par CTRL+ une touche. 


Ainsi vous pourrez taper des Ilistings 
normalement en abrégeant la 
frappe. 

E - Edit, | - Input, S - Save «, K - Load 
«, W- Window, O - If, D - Cat, L- List, 
R - Run, P - Print, F - For, C - Cls, T - 
Then, À - Auto, G - Goto, M - Mode. 
Exemple : CTRL+P donnera Print à 
l'écran. 


+ EDITOR, est un éditeur de secteurs 
tout à fait classique. 


+ BASIC +, ajoute plusieurs com- 
mandes RSX à votre Basic. C'est 
surtout intéressant pour le 464, car 
les fonctions supplémentaires du 
6128 sont implantées. Voici la liste 
de ces instructions que vous pouvez 
obtenir à l'écran avec ÜHELP : 


ÜBOX,X,Y,L.H. Permet de tracer une 
tracer une boite de coordonnées 
X.Y (point en haut, à gauche), de 
largeur L et de hauteur H. 
ÜCAPSOFF. Contraire de l'instruction 
suivante. 

ÜCAPSON. Positionne le clavier en 
mode majuscules 

ÜCHARS. Affiche tout le jeu de ca- 
ractères du CPC. 

ÜCLEAR.INPUT. Vide le buffer clavier 
(comme sur 6128) 

ÜCOLOUR Border,paper.ink. Modifie 
la couleur du Border, du fond et de 
l'encre. 

ÜCOLUNM.col. Positionne le curseur 
à la colonne col. 

ÜCOPYCHAR àchaine 
ÜCOPYCHARX,Y àchaine 
ÜCURSOR, 

ÜDEEK.adresse ànn. Récupère le 
contenu de adresse et de adres- 
se+]1 et le place dans nn 


ÜDISCREAD piste secteur.àa$. Lit le 
contenu d'un secteur et place le 
contenu dans af. (Le secteur doit 
être donné sous forme hexa : &C1 
par exemple pour le format data). 
ÜDISCWRITE piste secteur 


ùDOKE adresse nn. Poke une valeur 
16 bits dans adresse et adresse+] 
ÜDISARM.BRK. Empêche le Break 
d'un programme. 
üFILLBOX.ink.gauche droite haut, bas. 
Trace un rectangle coloré avec ink 
et défini par gauche, droite, haut 
et bas. 

ùFINDMODE. àvariable entière 
ÜFLUSH 

FRAME. Même fonction que pour 
le 6128 et CALL &BD19. 

ÜGET,àA$. Arrête le programme et 
attend l'appui sur une touche. La 
touche enfoncée est placé dans AS 
ùGMODE. type. Sélectionne le mode 
graphique (0O=normal, 1=XOR, 
2=AND, 3=OR) 

ùGPAPER.encre. Détermine la cou- 
leur du fond en mode graphique. 
ÜGPEN.encre. Détermine la couleur 
d'écriture en mode graphique. 
HELP. Affiche la liste des comman- 
des de Basic +. 

üINVERSE. Echange la couleur de 
fond et la couleur d'écriture. 
ÜKEYRES 


ÜLARGE àA$. Affiche le texte con- 
tenu dans A$ en double hauteur. 
MCOPY source destination longueur. 
Recopie le contenu de «source» vers 
la «destination» sur une certaine 
longueur. Le tout se déroule en mé- 
moire. 

üMDUMP départ longueur. Affiche 
le contenu de la mémoire à partir 
de l'adresse «depart» et sur toute la 
«ongueur», 

ÜOVER, 0 ou 1 

ÜPCHECK.àA 

ÜPRINTL,àAS$. Affiche le contenu de 
variable AS$ verticalement de haut 
en bas 

ÜPRINTR àA$. Même effet que l'ins- 
truction précédente mais de bas en 
haut. 

ÜSCRINIT. Remet l'écran dans ses 
couleurs initiales. 

ÜSCROLLDOWN. Déplace l'écran 
d'une ligne texte vers le bas. 
ÜSCROLLUP. Déplace l'écran d'une 
ligne vers le haut. 

ÜSHIFTOFF. Action contraire de 
ÜSHIFTON. 

ÜSHIFTON. Simule une mise en pla- 
ce permanente de la touche SHIFT. 
ÜSOFTROLL,0-1,encre. gauche, 
droite haut, bas 

ÜVDU,a,b.c... etc 

ÜWAIT, Stoppe un programme et 
attend l'appui d'une touche (CALL 
&BB06) 

ÜWAIT num. Stoppe un programme 
et attend l'appui sur la touche dont 
le numéro est dans num. 

Vous avez remarqué que certaines 
instructions ne possèdent pas de 
commentaires : je n'ai tout simple- 
ment pas eu le temps de recher- 
cher leur fonction. Et puis, il faut bien 
que vous aussi vous travailliez. 


+ MANDEL. Création de figures frac- 
tales. Trés long et peu être trés joli si 
les trois chiffres choisis au départ 
sont corrects. 


+ SIREN. imite le cri d'une ambulan- 
ce. 


+ MGP. Traceur de courbes mathé- 
matiques. 


Voilà, c'est tout pour ce mols-ci. En 
cas de problèmes téléphonez au 99- 
52-98-11 le Mercredi après-midi de 
14hà17h. 


Olivier SAOLETTI 
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Valable pour CPC 464 - 664-6128 


Eh oui, quand y'en a plus, y'en a encore. Le listing DATA7 de Plumpy avait 
été laissé dans un coin sombre et le voici tout de même à la lumière des 
projecteurs. L'absence de ce listing explique les erreurs lors de l’accès au 
jeu proprement dit (voir CPC Infos 27 & 28). Attention, vous devez lancer ce 
listing uniquement en fin puisqu'il utilise PLUMPY22.BIN et 
PLUMPY23.BIN. Bon courage ! 


18 ' DATAS 7 

28 ' 

38 MODE 2:AD=&CH94:NL:199 

49 FOR A=1 TO 365:B=ÿ:FOR C=1 TO 15:READ A$ 

58 POKE AD, VAL("&"+A$) : B=B+PEEK(AD) :AD=AD+1 

68 NEXT:READ E$:1F VAL("&"+E$) CB THEN 99 

79 NLENL+IS:NEXT : SAVE"PLUMPY23.BIN",B, &CA99, &1569 


89 MODE 2:LOAD"PLUMPY22.BIN", 8C088:LOAD"PLUMPY23.BIN", LESOQ: (ERA, 
"PLUMPY22. BIN": ERA, "PLUMPY23. BIN": SAVE"PLUMPY22. BIN",B, &C498, 435 


64:CLS : END 

94 CLS:PRINT'LIGNE"NL;" INCORRECTE" :END 

190 DATA 09,09, 08, DB,D1,68A,90,99,45,09,08,45,00,00,45, 395 
119 DATA 89,89,45,99,09,99,DB,D1, 84,99, 99,88,98,00,08,2FB 
129 DATA 29,00,00,00,00,00, 09,00, 8A,B9,08,F0, 90,45, BA, 319 
139 DATA 3A,49,F9, 88, 45, B2, 39, 19, D2, 22, 45,12, 38,B8,C3,617 
149 DATA 22,45,9A,B#, 19,C1,82, 98, 9A,3A, 19,C1,89,45,B2,628 
159 DATA 29,30,69,88, 99, 12, 35,39,69,88, 99, 45,29, 9D, 38, 3C4 
169 DATA 22,99,CF,21,99,39,22,88,51,DB, CE, 32,29, 85, 14, 462 
179 DATA 89,19,99,09,00,00,09,00,00,09,49,99,08,96, 45,95 
189 DATA E7,09,00,90, 00,64, 09, 8A, 09,06, 09, 8A, 99, 8A, 89, 30F 
199 DATA 89,99,45,E7,00,99, 00,51, 09,96, 45,98, 08,90,00, 102 
298 DATA 66,09,08,09,8A,B9,08,F0,96,45,8A, 3A, 48, FO, 88, ER 
218 DATA 45,B2,39, 19, D2, 22, 45, 12, 39,B9, C3, 22, 45,9A, RS, 5D6 
228 DATA 19,C1,82,99,9A,3A, 19,C1,68, 45,B2, 29, 39,69, 88, 5A7 
239 DATA 99,12,39,39,69, 88, 99, 45, 29,90, 39, 22,98,CF,21,39E 
249 DATA 99,39, 22,98,51,DB, CE, 32, 28,93, 9D, 69, 49, C3, 99, 44A 
258 DATA 89,49,C1,09,09,D9,E9, 82,99,F8,E8,82,49,F8,C1,776 
269 DATA C1,19,F9,C2,D9,18,C9,C5,C3,19,C8,C9,C1, 19,69, B67 
279 DATA C9,C9,89,39,C9,89,09,69,C9,69, 90, 19,C0,08, 98,569 
288 DATA 19,38,99,93, 0D, 69, 49,D2,98,80,49,D9, 89, 90,C8, 332 
299 DATA CB,A9,88,C5,CF, AS, 49,CF,CF,DA, 49, 4F,8F, DA, 19, 85F 


399 DATA 97,88, 4B, 19,E5,DA, CB, 18,6F,9F, 4, 09,65, 45,89, 629 
319 DATA 80,65,45,89,99,19,CA, 09,06, 19,60,0P,03,0D, 08, 284 
328 DATA 49,D2, 00,08, 49,D8, 00,08, C9,63, A0, 90,91, 33, AS, 549 
339 DATA 49,33, 33,72, 49, 1B, 27, 72, 19,07, 23,4, 18,B1, 72, 3C4 
349 DATA 63,18, 3B,37,62, 9, 31,11,80,9,31,11,80, 69, 19, 2DB 
358 DATA 62, 89,89,19,60,09,03, 00, 06, 49, D2,98, 09, 49, DB, 394 
364 DATA 60,08, C0, 4B, A0, 08,85,9F, A, 48,0F, BF, SA, 49,25, 3FC 
379 DATA L4,54,19,98, 44,61, 19,45,5A,48, 19,2F, 1F, 4A, 08, 301 
389 DATA 25,05, 80,08, 25,05, 88,08, 19, 4A, 09,89, 19,69, 09, 21E 
399 DATA 83,8, 99, A2, 44,49, 45,DB, 33,88, 45,F3,66, 88, 45, 53B 
499 DATA DB,33,88,91,8E, B9, A6, 01,96, 5C, 28, 91,29, 8C, 28, 44F 
419 DATA 69,86,FC,09,09,06, 1C, 09, 00,03, BC, 08,98, 81, 28, 28C 
429 DATA 90,08,01,28,00,03,08,11,91,44,90,51,F3,DB, A2, 348 
439 DATA DB,DB, DB, DB, ED, ED, ED, ED, F2, 79, 78, 78,58, 78, 78, AC3 
448 DATA 20,58, 78,78, 2C, 8, 0C, AC, 8C, P4, 86, 18, AG, 6, A6, 3DC 
459 DATA B2,19,53,53,53, 12,49, 71,F3,F3,68,98, 25,53, 07,543 
469 DATA 29,98,96,0F, 1A,88,08,48, 3,69, 48,02, AC, 09,85, 23C 
476 DATA BA, 89,54,99, 80, 14,08,08, 14,48, 08,99, A8,08, 14, 1F2 
489 DATA 8,98, 14,08, 00,54, 08,08, AC, 99,08, 28, 00,54, 98, 248 
499 DATA 89,84,99, 09,83, 0B, 09,99, 11,88, 44, 22, 99,66, 88, 249 
589 DATA 91,26, 44,98, 16,96, 19,99, 7C, 83,08, 89, A9, 53, 08, 1DB 
519 DATA 89,98, 83,6, 89,0F,93,06,96,0B, 08,98, 08,0F, 03,68 

529 DATA 98,98, 05,08, 08,92,0C,95,00,88,05, 86,08, 08, 43,49 

539 DATA 89,85, A4, A8, 1B,88,FE, 18, 22,FE, 1B,88,AE, 1B, 44,5E3 
549 DATA 89,1, 11,23, 84,33, 26,9F, 33,93, 45,98, 82,81, 9€, tAI 
559 DATA 81,5C,81,5C, 89,82, 49,E1, 49,1, 49,E1,48,E1, 48,609 
569 DATA Et,18,F0,48,E1,48,E1,19,E1,18,C1,68, 29,61,0B,611 
579 DATA 84,84, 47,29, 94, 38,94, 35, A2, 38, CE, 28,98, 28, 19,59F 
588 DATA C1,1,C3,38,D2, 31,93, #4, 94,99, 31,36, 09,09, 09, 3CF 
594 DATA 31,36, 89,09, 99,31, 36,09, 98,E1, C9, 36,98, 80, DB, 2A5 
699 DATA 31,33,60,28,41,C9, 33,99, 9C, 89, 31, 33, 33,66, 99, 45E 
619 DATA C2,33,33,66, 89, 0C, AC, FC, FC, 09, 0F, 97,03, 93,98, 4EA 
628 DATA 99,99, 39, 69,69, 38,98, 98, 68,69, 38,99, 39, CO, 99, 668 
638 DATA 39,39,F9, 34, 34, GA, 6À, 3A, 3A, 3A, 3A, SA, 3F, 68, 38, 489 








649 DATA 39,99,39,C3,69,68, 39, 35,99,96, 69, 35, 38, 3F, 99, 582 
654 DATA 98,69,39,64,E9, 92, 92,92, 92, Bÿ,92,B8,E8,C2,3A,876 
669 DATA 39,69,99,99,99,95,38,69,68,39,98,99,64,69, 39,608 
679 DATA 99,39,C9,99, 39,39, FD, 34, 3A, GA, GA, 3A, 3A, 3A, 3A, 598 
689 DATA 3A,3F,69,38,39,95,35,97, 35,35, 35,35,95,95, 35, 4CD 
699 DATA 35,35,3F,95,95,35,3F,3F,3F,3F,3F,3F,3F,3F,3F,43F 
798 DATA 3F,3F,3F,3F,3F,3F,3F,98,99,99,39,69,69,39,99,519 
719 DATA 98,68,69,3F,3F,3F,3F,3F, 39,38, F8, 3A, SA, 6A, 6A, 523 
729 DATA 3A,3A,3A, 34, 3F,3F,3F,3F,3F,95,35,97, 35, 35, 35, 423 
739 DATA 35,95,95, 35,35, 3F,3F,3F, 3F,3F,3F,3F,9F,3F,3F,43F 
749 DATA 3F,3F,3F,3F,3F,3F,3F,3F, 3F,3F,3F,99, 99,99, 39, 495 
759 DATA 69,69, 39,99,99,69,69,3F,3F,3F,3F,3F,38,38,F2,55B 
769 DATA 3A,3A,6A,6A,3A, 3A, 34, 3A, 3F,3F,9F,3F, 3F,99, 39, 42B 
779 DATA C3,69,69,39,39,99,99,69, 35,3F,3F,3F,3F,3F,38,4FE 
788 DATA 69,E8,92,92,92,92,B8,92, B8,E9, 3F, 3F, 3F,3F,3F, 795 
199 DATA 99,98,99,39,69,69, 39,99,99,69,68,3F,SF, 15, 15,558 
898 DATA 96,39,38,F#,3A, 3A, GA, GA, SA, 3A, 3A, A, SF, 3F, 3F, 43D 
819 DATA 3F,3F,99,39,C3,69, 69, 39, 30,99,95,68, 38,3F,3F,54F 
828 DATA 3F,3F,3F,39,69,E8,92,92,92,92,B9,92, BG, E9, 3F, 766 
839 DATA 3F,3F,3F,3F,09,99,99, 39, 69,68, 38,98,98,68, 39,57C 
849 DATA 3F,3F,15,15,98,35,38,F9, 3A, 34, 6A, 6A, 34, 3A, 3A, 3EE 
854 DATA 3A,3F,3F,3F,3F,3F,95, 35,97,35,35,35,35,95,95, 4D4 
868 DATA 35,35,3F,3F,9F,3F,9F,3F, 3F,9F,9F,3F,3F,3F,3F, 39D 
874 DATA 3F,3F,3F,3F,3F,3F,3F,3F,99,99, 99, 36,68,68, 38, 4C8 
889 DATA 99,99,69,68,38,98,38,C9, 98,38, 39,FD, 3A, 3A, GA, 64E 
899 DATA GA, 3A, 3A, 34, 3A, 34, 3F,69, 38, 38,95, 35,97, 35, 35, 456 
988 DATA 35,35,95,95,35,35,35,3F,95,95,35, 56, 88, 2A, 2A, 425 
919 DATA 3F,93F,3F,9F,3F,3F,3F,3F, 3F,3F,3F,3F,98,99,99, 4A4 
928 DATA 39,68,60,35,99,98, 69,69, 39,99, 39,C9, 99, 35, 39, SAS 
938 DATA F8, 34, 3,64, GA, 34, 34, 3A, 3A, 3A, 3F,68, 38, 38,99, 4E9 
949 DATA 39,C3,60,68,38,38,98,99, 69,39, 35,3F,95,95, 35,596 
959 DATA 38,689,E0,92,92,92,92,B#, 92, B8, 92, 3F,3F,3F,3F, 738 
964 DATA 3F,3F,3A,38,68,C8,C3,D2,F4,B4,3C, FC, 8C, 86, 93, 68E 
978 DATA 6B,8F,3F,34,39,69,C9,C3,D2,FS,B4,3C,FC, 9C, 96,666 
988 DATA 93,98, 9F,3F,3A,38,69,C8,C3,D2,F8,B4, 3C, FC, 9C, 663 
998 DATA 86,83, 8B,9F,3F,34,39,69,C8,C3,D2,F8,B4,3C, FC, 65D 
1999 DATA 9C,86,93,8B,9F,3F,34, 39,69, CB, C3, D2,F8, B4,3C, 56D 


1918 DATA FC, 4C, 06,93, 08, 9F, 3F, 3A, 38,68, C9, C3, D2, F9, B4, 62D 
1929 DATA 3C, FC, 0C, 96,83, 8B,9F, 3F,3F, 35, 35, 95,97, 07, B5, 4C7 
1839 DATA B5,3D, BD, 1D, 17, 17,1F,1F,9F,3F,3F, 3F, 3F, 3F,3F, 3F1 
1949 DATA 3F,9F,3F,3F,9F,3F,3F, 3F,3F, 3F, 34, 39,69, CB,C3, 4C3 
1858 DATA D2,F#,84,3C, FC, 3F,3F, 3F,3F, 9F, 3F, 34, 39,60, C9, 6B2 
1965 DATA C3,D2,F8, BA, 3C, FC, 3F, 9F,3F, 3F, 3F, 3F,3F, 35, 35, 694 
1878 DATA 95,97,97,B5,B5, 3D, BD, 3F, 3F, 3F,3F, 3F,3F, 3F,3F,61F 
1989 DATA 3F,3F,3F, 3F,3F, 3F, 3F, 3F,3F, 3F, 3F, 3F,3F, 3F, 34, SAC: 
1999 DATA 39,68,C9,C3,D2,F8,B4,3C, FC, 3F,3F,3F, 3F, 9F,3F, 738 
1199 DATA 34,38,69,C8, C3, D2, F4, B, 3C, FC, 3F, 3F, 3F, 3F, 3F, 736 
1118 DATA 3F,34,30,68,C8, C3, D2, FA, B4, 3C, FC, 3F, 3F, 3F, 3F, 736 
1129 DATA 3F,3F, 34, 38,69, C8, C3, D2, F4, Ba, 3C, FC, 3F, 3F, 3F, 736 
1139 DATA 3F,9F,3F,3A, 30,68,C8, C3,D2, FA, B4, 3C, FC, 3F, 3F, 736 
1149 DATA 15,15,88,3F, 34, 38,69, CB, C3, D2, F8, B4, 3C, FC, 3F, A3 
1158 DATA 3F,3F,3F,3F, 3F, 34, 39,68, CB, C3, D2, F8, B4, 3C, FC, 736 
1169 DATA 3F,9F,3F,9F,3F,9F, 34, 39,69, CA, C3, D2, F#, B4, 3C, 679 
1178 DATA FC, 3F,3F,3F,9F, 3F, 3F, 34, 39, 68,C8, C3, D2, FO, Bé, 739 
1188 DATA 3C,FC,3F,3F, 15,15, 90, 3F, 34, 30,68, CO, C3, D2, FH, B2E 
1199 DATA B4,3C, FC, 3F, 9F,3F,3F, 3F,3F, 3F, 35, 35,95, 97, 97, 5D2 
1288 DATA B5,B5, 30, BD, 9F, 3F, 3F, 3F,3F, 3F, 3F, 3F, 3F, 3F, 3F,519 
1219 DATA 3F,9F,9F,9F,9F,9F,9F, 9F,9F, 9F, 3F, 34, 39, 69, CO, 43F 
1228 DATA C3,D2,F8, B4, 30, FC, 4C, 96,93, 88, 9F, 3F, 34, 30,68, 5A9 
1239 DATA C9,C3,D2,F8,B4,3C, FC, 80,86, 93, 88, 9F, 3F, 3F, 35,613 
1249 DATA 35,95,97,97,B5, 85, 3D, BD, 1, 17, 17, 1F,1F, 99,08, 4ES 
1259 DATA 24,24, 3F, 9F, 3F,9F,9F,3F,9F, 9F,3F,3F, 3F, 3F, 3F, 387 
1269 DATA 34, 38,69, C8,C3,D2, F4, B4, 30, FC, 0C, 06,03, 0B,9F,62A 
1279 DATA 3F,3A,39,68,C8,C3,D2, FA, B4, 3C, FC, AC, 86, 93, 08, 65A 
1289 DATA 0F,9F,34, 38,69, C9,C3, D2, F8, B4, 3C, FC, 1D, 17, 17,694 
1298 DATA 1F,1F,3F,3A, 38,68, CB, C3,D2, F8, B4, 30, FC, 3F,3F,6F6 
1389 DATA 3F,9F,9F,9F, 94, 39,69, CB,C3, D2, F4, Ba, 3C, FC, FF, 7F6 
1318 DATA DD,CC, 66,33, 3F, 34, 39,68,C8, C3, D2, F8, B4, 3C, FC, B7C 
1329 DATA FF, DD, CC, 66, 33, 3F, 34, 39,69, C9, C3, D2, F8, B4, 3C, 87F 
1338 DATA FC,FF, DD, CC, 66, 33, 3F, 34, 38,68, C8, C3, D2, FO, B4,93F 
1349 DATA 3C,FC,FF, DD, CC, 66, 33, 3F, 34, 39,68, C£, C3, D2, F8, 8C7 
1359 DATA B4,3C, FC, FF, DD, CC, 66, 33, 3F, 34, 39,68, CO, C3, D2, 888 
1369 DATA F9, B4,3C,FC, FF, DD, CC, 66,33, 3F, 3F, 35,35, 95,97, 831 
1378 DATA 97,85,85, 3D, BD, BF, 9D, 90, 37, 37,F, 3F, 3F, 9F, 3F, 69D 
1389 DATA 3F,3F,3F, 9F,3F, 3F,3F, 3F,3F, 3F,3F, 3F, 34, 30, 68, 3BE 
1399 DATA C9,C3,D2,F#,B4, 30, FC, 3F,3F, 3F,9F, 3F,3F, 34, 39, 715 
1489 DATA 68,C9,C3, D2,F8,B4,3C, FC, 9F, 3F,3F, 3F,3F, 3F,3F, 744 
1419 DATA 35,35,95,97,97, 85,85, D, BD, 3F, 3F, 3F,3F, 3F,3F, 608 
1429 DATA 5F,5F,9F,9F,93F,3F,9F, 9F,3F, 3F, 9F,3F, 3F, 3F, 3F, 381 
1439 DATA 3F, 34, 39,68,C8,C3,D2, FB,B4, 3C, FC, 3F,3F, 3F, 3F, 736 
1449 DATA 3F,3F,34, 39,68, CD, C3, D2, F8, B4, 3C, FC, 9F, 3F, 3F, 736 
1458 DATA 3F,3F,3F, 34, 38,68, CB, C3,D2, F8, B4, 30, FC, 3F, 3F, 736 
1469 DATA 3F,3F,3F, 3F, 34, 39,69, C9,C3, D2, FO, B4, 3C, FC, 3F, 736 
1479 DATA 3F,3F,3F,9F, 9F, 34, 38,68,C8, C3,D2, F8, B4, C, FC, 736 
1489 DATA 3F,3F,15, 15,09, 3F, 34, 39,68, C9, C3, D2, F8, Ba, 3C, 5E6 
1499 DATA FC, 3F,3F,3F,9F,3F, 3F, 3A, 39,68, CB, C3, D2, F8, B4, 739 
1588 DATA 3C,FC,3F, 3F,3F, 3F,3F, 3F, 34, 39,69, CB,C3, D2,F,6C1 
1519 DATA B4,3C, FC, 3F, 3F,9F,3F, 3F,3F, 34, 39,68, C9, C3, D2, 685 
1529 DATA F9,B4,3C, FC, 3F,3F, 15, 15,99, 3F, 34, 30,69, CA,C3,619 
1539 DATA D2,F8,84,3C, FC, 3F,3F, 3F,3F, 3F, 3F, 3F, 35, 35,95, 666 
1549 DATA 97,97,B5,85, 3D, BD, 3F, 3F, 3F, 3F, 9F,3F,3F, 3F, 3F,5C9 
1559 DATA 3F,3F,3F,3F,3F,3F,9F,3F, 9F,3F, 9F,3F, 3F, 34, 30, 30D 
1569 DATA 69,CB,C3, D2, F8, Bé, 3C, FC, FF, DD, CC, 66, 33, 3F, 3A, 94B 
157$ DATA 39,68, CB,C3,D2,FB,B4,3C, FC, FF,DD, CC, 66, 33,3F, 941 
1589 DATA 3F,35,35,95, 97,97, 85, B5, 3D, BD, BF, 9D, 9D, 37, 37, 737 
1598 DATA 99,08, 2A, 2A, 9F,3F,3F, 3F,3F, 9F,3F,9F,3F, 3F,3F, 399 





1698 DATA 3F,3F,34,30,69,C9,C3,D2,F8,B4, 3C,FC,FF, DD, CC, 921 
1618 DATA 66,33, 3F,3A,38,68,C8,C3,D2,F8,B4,3C,FC,FF, DD, BAF 
1628 DATA CC,66, 33, 3F, 34, 39,69, C9,C3,D2,F8, B4,3C, FC, BF, 85F 
1639 DATA 9D,9D, 37,37, 3F, 3A,38,68,C9,C3,D2,F9,B4, 3C, FC, 7E2 
1649 DATA 3F,3F,3F,3F,9F,C3,F9, 39, 39, 3F,3F, 39, 39, 39, 39, 48C 
1658 DATA 39,36, 38,39, 39, 38,C3,F8, 79,78, 7A,6B,61,61, 79,5CA 
1668 DATA 78,78,79,61,61,61, 79,C3,F8, 35,35, 3F,3F,35,35,5E8 
1679 DATA 35,35, 35,35, 35,35, 35,35,C3,F8,38, 38, 3F,3F, 39, 469 
1688 DATA 36, 39,39, 30, 39, 35,39, 39, 39, C3,F9, 39,39, 3F,3F, 441 
1699 DATA 35,38, 39, 39, 30, 38, 38,38, 38, 38,C3,F 0,79, 70, 7A,4ED 
1799 DATA 6B,61,61, 79, 79,70,70,61,61,61, 79,97,B5, 35,35,636 
1718 DATA 3F,3F,35,35, 35, 35,35,35,35, 35,35, 35, 3F,3F,3F, 34D 
1728 DATA 3F,3F,3F,3F,9F,3F,9F,3F,9F,3F,3F,3F,3F,C3,F6, 4E6 
1738 DATA 39,39, 3F,3F, 39, 38, 38,38, 38, 3F, 3F, 3F,3F,3F,C3, 3CC 
1749 DATA F8,70,79,7A,6B,61,61, 78, 79, 79,3F, 3F,3F, 3F,3F,692 
1759 DATA 97,B5,35,35,3F,3F,35,35,35, 35,35, 3F, 3F, 3F, 3F, 439 
1768 DATA 3F,3F,3F, 3F,93F,3F,93F,3F,3F,3F,3F,3F,3F,3F,3F,3B1 
1778 DATA 3F,3F,C3,F9, 38,38, 3F,3F, 38, 39, 39, 39, 39, 3F,3F, 47D 
1788 DATA 3F,3F,3F,C3,F8, 79,79, 7A,6B,61,61, 79, 79, 70,3F,686 
1798 DATA 3F,3F,3F,3F,C3,F8,35,35,3F,3F,35, 35, 35,35, 35, 4AB 
1899 DATA 3F,3F,3F,3F,3F,C3,F6, 39, 39, 3F, 3F, 39, 39, 39,39, 48C 
1819 DATA 39,3F,3F,3F,3F,3F,C3,F8, 38,39, 3F,3F, 39, 39, 39, 48C 
1829 DATA 39,39,3F,3F, 15,15,99,C3,F9, 78, 79, 7A,6B,61,61,542 
1838 DATA 79,19, 75,3F,3F,3F,3F,3F,C3,F0,35,35,3F,3F,35,55B 
1849 DATA 35,35,35, 35, 3F,3F,3F,3F,3F,C3, F9, 30,39, 3F,3F, 4AQ 
1859 DATA 39,39, 38, 38, 39,3F,3F,3F,3F,3F,C3,F9, 39, 39, 3F, 47D 
1869 DATA 3F, 39,39, 30, 39, 39, 3F, 3F, 15, 15,99, C3,F9, 79, 79, 46A 
1879 DATA 7A,6B,61,61, 79, 79, 78,3F,3F,3F,3F,3F,97,B5,35,5B3 
1889 DATA 35,3F,3F, 935,35, 35,35, 35,3F,3F,3F, 3F, 3F, 3F,3F,375 
1899 DATA 3F,3F,3F,3F,3F,3F,3F,3F,3F,3F,3F,3F,9F, 3F,C3,435 
1998 DATA F8,39,38,3F,3F, 39,39, 39, 39, 35, 39, 30,38, 30, 39, 3AE 
1919 DATA C3,FS, 79,79, 7A,68,61,61, 79, 78,79,78,61,61,61,71D 
1928 DATA 79,97,B5,35,35,3F,3F, 35, 35, 35, 35, 35,35, 35, 35, 44C 
1939 DATA 35,35,09, 09, 2A, 2A,3F,3F,3F,3F,3F,3F, 3F,3F, 3F,2F5 
1949 DATA 3F,9F,3F,C3,F9, 39,39, 3F,3F, 39, 39, 39, 38, 38,38, 46E 
1959 DATA 35,39, 39,39,C3,F8, 78,78, 7A,68B,61,61, 79,79, 79,64A 
1969 DATA 79,61,61,61,79,C3,F9,35, 35,3F,3F, 35,35, 35,35,572 
1978 DATA 35,35,35,35, 35, 35,C3,F8,38, 39, 3F,3F, 39, 36,30, 45F 
1989 DATA 39,39,3F,3F,3F, 3F,3F, 26,98, 5C, 99, 99,09, 5C, 28, 2Bà 
1998 DATA 54,99,5C, 78,54,99,5C, 28,98, 99, 99,99,54,99,5C, 2CB 
2899 DATA 28,54,99,5C, 78,99,81,5C,99, 54,99, 5C,28,54,98,2F3 
2918 DATA 99,78,98,98,5C, 96,98, 14, AC, 96,BC, 14, AC, 86, BC, 3DE 
2829 DATA 14, AC,96, 8,98, 69,09, 99, 14, AC, 96, BC, 14, AC, 96, 3B6 
2838 DATA BC,99,04,96,98, 14, AC, 96,BC, 14, A8, 98, BC, 99,89, 3Cà 
2848 DATA 06,99,09, 00,90, 06,00, 09,00,00,09,60,06,00,96,F 

2859 DATA 99,90,00,05,08,98,00,5C,08,06,00,96,99, 7C,99,E1 

2669 DATA 96,98,99,00,5C, 58, 7C, 89,5C, 85,99, 99, AC, 99, 14, 25E 
2979 DATA A9,99,99,14,B4, AC, 98, 14, A6, 08,08, 99,09, 49,99, 2C8 
2989 DATA 14,B4,AC, 96, 14,B4, AC, 99,99, B4,04,02, 14, A,99, 45C 
2998 DATA 06,99,B4, AC, 92,98, 08, AC, 90, 99,54,28,54,99,54, 341 
2199 DATA 786, 7C,99,54,28,90,00, 00,99, 90,00,54, 78, 7C,98,2C8 
2119 DATA 54,78, 7C,99,54,78,54,99,54,28, 08,99, 89, 90,00, 2F6 
2129 DATA 69,86,09,99,08, 90,04, AB, 09, AC, 04, AB,98, 00,04, 208 
2138 DATA A6,69,00,99,08,98,08,98,14,B4,90,04, AB, 80,88, 21C 
2149 DATA 94, AB,09, AC, 84, AB, 99, AC, 99, 14,B4, 69,09, 90, 90,378 
2158 DATA 78,98,91,5C, 78, 7C,91,5C, 78, 7C,81,5C, 78, 28,89,417 
2168 DATA 99, 00,00,00,80,76,28,81,5C, 78, TC, 91,5, 28, TC, 2F2 
2178 DATA 81,50, 78, 7C, 98,54, 78,69,98, 90, 78, BC, 89,09, 96, 357 
2188 DATA BC, A9,94, 96, BC, B4, 99, 56, BC, A9, 09, 09,09, 00,99, 438 
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2198 DATA 99,14,B4,04,96, BC, B4, 04,06, AB, Bd, 84, 86, BC, A, 50E 
2298 DATA 69,84,BC, 86,09,98,BC,81,FF,CB,01,FF, CO, 08, FF,5FB 
2218 DATA E9,96,FF,E6,08,FF,FA,08,7F,F8,00,7F, F0, 09, 3F, 7CB 
2228 DATA F8,89,3F,F6,09,1F,FC, 8, 1F,FC, 09,0F,FC, 09, 0F,57F 
2238 DATA FE, 99,0F,FE,08,07,FF,08,07,FF,00,97,FF, 00, 03,529 
2248 DATA FF,86,03,FF,89,03,FF,C8,91,FF,C9,91,FF, CO, 09, 843 
2258 DATA FF,E6,00,FF,FA,98,7F,F8,08,7F,F0,98,3F,FB, 80, 7E3 
2268 DATA 1F,FC,69,0F,FE, 69,07, FE, 99,07, FF,09,03,FF, 89,5B5 
2278 DATA 91,FF,86,91,FF,C8,90,FF, EP, 99, 7F,E0, 60, 3F, FO, 7AD 
2288 DATA 69,1F,F8,06,1F,FC,49,0F,FC, 09,97,FE,00,03,FF, 544 
2298 DATA 99,81,FF,89,00,FF,CB,68,FF,EB,80,3F, FO, 80, 1F,66C 
2398 DATA F8,9,0F,FE,09,07,FE, 00,03,FF,09,01,FF, 80, 09,58C 
2318 DATA FF,C9,09,7F,E8,08,3F,F8,08,1F,F8,98,8F, FC, 80,66F 
2328 DATA 63,FF,09,93,FF,86,00,FF, CO, 06, ?F, F0, 09, 3F,F8,6E9 
2339 DATA 99,0F,FE,08,07,FF,08,93,FF,88,01,FF,E0, 08, 7F,5F4 
2349 DATA F8,89,3F,F8,90, 1F,FC, 99,07, FF,09,03,FF, 80,91,5CB 
2358 DATA FF,C9,08,FF,E0,08,7F,F0,08, 1F,F8,80,8F,FC, 80, 72F 
2368 DATA 97,FF,09,93,FF,80,91,FF, 89,09, FF, E9, 09, 7F, FO, 756 
2378 DATA 99,3F,F8,96,1F,FC,98,97,FE,08,93,FF,00,01,FF, 559 
2388 DATA C9,99,FF,E0,99,7F,F0,09, 1F,FC,99,0F,FE, 09,07, 63D 
2398 DATA FF,99,03,FF,88,91,FF,C8,08,FF,E8, 08, 7F, FO, 80, 78F 
2498 DATA 1F,FC,69,8F,FE, 89,07, FF,60,03,FF, 80,09, FF, CO, GEF 
2418 DATA 99, 7F,F8,08,3F,FC,00,9F,FC, 68,87,FF, 80,93, FF, 5BD 
2428 DATA C8,91,FF,C6,99,FF, E0, 99, 7F,F8,09,3F,F8, 00,0F, 71C 
2438 DATA FC, 99,07,FE,08,93,FF,C8,93,FF,E0,80,FF, F9, 90, 794 
2448 DATA 7F,F8,09,3F,FC, 60, 1F,FE,99,0F,FE, 09,07,FF,00,SDA 
2458 DATA 01,FF,88,99,FF,E8, 00, 7F,F0,98,1F,FC, 69, 0F,FE,6F6 
2468 DATA 99,93,FF,00,09,FF, CO, 00, 7F, E8, 99, 3F,F8, 09, 0F, 566 
2478 DATA FC, 99,97,FE,09,03,FF,88,00,FF,C8, 60, 7F,E9, 80, GAI 
2488 DATA 7F,F,08,1F,FC, 80,0F,FE, 08,03, FF, 00,09, FF, 80,618 
2498 DATA 99,3F,C8,08,7F,E8,08,3F,FB, 48, 1F,FC, 09, 97,FE,5B5 
2588 DATA 89,93,FF,00,01,FF,80,09,FF,CO, 09, ?F,EB, 00, 3F, SDF 
2518 DATA F8,49,1F,FC,98,97,FF,09,03,FF,08,81,FF, C0, 90, 5DB 
2528 DATA 7F,E0,08,3F,F8, 90,0F,FE, 09, 07, FF, 99,03, FF, 89,623 
2538 DATA 81,FF,C8,99,7F,F8,00,3F,F8,08, 1F,FC, 80,97, FE, 686 
2548 DATA 09,93,FF,90,01,FF,C9,00,FF, E0, 09, 3F, FO, 00, 1F,SEF 
2558 DATA F6,99,0F,FC,08,97,FE,98,03,FF,88,09,FF,C0, 18,661 
2568 DATA 7F,F,09,3F,F8,06,0F,FE, 99,07, FF, 00,01,FF, 89,639 





2574 DATA 99,7F,E9,98,3F,F6,00,9F,FF,00,93,FF,99,91,FF, 5AG 
2584 DATA F9,39,7F,FC,08,3F,FC,92,9F,FF,09,63,FF, 9,29, 768 
2599 DATA FF,F8,18,3F,FE,96,9F,FF,91,87,FF,E0,68,FF,F9,916 
2698 DATA 18,7F,FE,96,1F,FF,91,63,FF,E9,61,FF,F0,38, 7F,823 
2619 DATA FC,96,1F,FF,91,87,FF,C8,E1,FF,F0,18,7F,FE, 86, 8D2 
2628 DATA 1F,FF,91,97,FF,C8,C1,FF,F9, 39, 7F,F8, 1C,3F,FE, 895 
2638 DATA 93,0F,FF,81,83,FF,C8,60,FF,FB,938, 7F, FC, 06, 1F, 893 
2648 DATA FF,93,87,FF,C8,E1,FF,FO,18,3F,FC, 96,9F,FF,91, 889 
2659 DATA 83,FF,E8,68,FF,F8,0C,3F,FE,93,87,FF,81,C3,FF,94E 
2669 DATA Eÿ,79,FF,F8,8C,1F,FF,03,07,FF,CD,C1,FF, ED, 39, BA 
2679 DATA 7F,F8,9C,1F,FF,993,97,FF,88,C1,FF,F8, 38, 7F,FC, 88D 
2688 DATA @E,1F,FF,91,07,FF,C9,E0,FF,FD, 18, 7F,FC,96,9F, 76A 
2698 DATA FF,91,83,FF,E0, 78, 7F,F8,1C,1F,FE, 93,87,FF,C9, 8CB 
2760 DATA E9,FF,F8,18,3F,FE,97,97,FF,81,C1,FF,E0, 38, 3F, 6C9 
2718 DATA FC, SE, OF,FF,81,C1,FF,E8,38,7F,FC,9F,8F,FF,81, BBA 
2728 DATA C{,FF,F9,38,3F,FE,07,97,FF,C9,F0,7F,F8,1E, 1F, 896 
2738 DATA FF,03,83,FF,C8,78,7F,F8,0E,8F,FF,91,C1,FF,E9,8E8 
2749 DATA 78,7F,FC,8F,9F,FF,81,C1,FF, ED, 38,3F,FE,07,93, 7BQ 
2758 DATA FF,C9,F9,7F,F8,1E,9F,FF,93,C1,FF,E8, 76, 3F,FC, AB 
2769 DATA @F,97,FF,81,E0,FF,F8, 1E,9F,FF,03,C1,FF, F9, 3C, 888 
2778 DATA 1F,FF,03,81,FF,E8,78,1F,FE,97,83,FF,E0, 78, 3F, 836 
2788 DATA FE,87,683,FF,E0,78,1F,FE,9F,83,FF,E9,38, 1F,FE, 8C2 
279ÿ DATA 87,81,FF,E9,78,1F,FE,93,C8,FF,F0,3C,8F,FF,93,7FB 
2899 DATA C9,FF,F9,3E,97,FF,81,F0,9F,FC, 1F,89,FF, ED, 78, 998 
2818 DATA 89F,FF,07,C8,7F,F8,7F,93,FF,C1,F9,1F,FF,8F,ED, B8B 
2829 DATA 7F,FC,7F,93,FF,E9,FC,8F,FF,687,F9,3F,FF, 89,E9, SFB 
2839 DATA FF,FC,9F,91,FF,F8,99,97,FF,C1,F0,8F,FF,87,C8,996 
2849 DATA 8F,FF,97,80,1F,FF,87,E9,1F,FF,97,69,1F,FE,97,663 
2858 DATA 89,1F,FF,93,99,1F,FF,97,80,0F,FF,93,80,97,FF, 5DD 
2869 DATA 83,C0,93,FF,C1,E8,91,FF,E9, F0, 99,FF,F, 38,95, GDD 
2878 DATA 3F,FC,96,09,8F,FF,99,60,03,FF,C9,F0,60,7F,FB,6D8 
2888 DATA 9E,99,07,FF,81,C1,E8,7F,F8,0C,1E,FF,FF,FF,FF,8D3 
2898 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
29989 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
2918 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
2928 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
2938 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
2949 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
2958 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
2969 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
2979 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
2989 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
2999 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3996 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3919 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3929 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3938 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3949 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3959 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3968 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3079 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3984 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3999 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,07,00,80,FF,1F,B1B 
3199 DATA E9,01,BF,F6,E9, 09, 7C,FF,FC, 09,E9,F8,F8, F0, 98, 99F 
3119 DATA FF,FC,98,76,78,F8,F8,69,FF,F6,00,E8,F0,F6,F9, ADA 
3129 DATA Et,E3,F1,C1,C8,78,F8,E9,C1,E7,F1,C1,C8, 78,F8,C18 
3139 DATA E9,91,FF,F8,C1,C9,78,F8,E8,91,FF,F0,81,C0,F1,ACB 
3148 DATA F1,C9,81,F3,F9,93,C1,C3,E3,C9,83,E7,E3, 97,83, 996 
3158 DATA 87,C7,81,97,CF,C6,97,97,8F,CF,82,8F,9F,9C, BE, SE 





3169 DATA ÎE,3F,1E,8C,1F,FF,FC, 99, 1C, 7E,38,18,3E,FF,FÛ, SAB 
3178 DATA 99,61,F9,F9,68, 79,FF,E8,#1,C7,FF,C9,81,6F,FF,918 
3169 DATA 89,88,7F,FE,09,00C, 7F,FC,99,3F,E0, 03, 1F, C9, 1F, 5A4 
3198 DATA F9,3F,F6,99,FF,E8,9F,F0,83,FF,08,1F,89,0F,F8, 7DD 
3289 DATA 09,FF,E8,87,F0,93,FE, 90, 3F,F8,091,FC,99,FF,82, 78C 
3218 DATA 8F,FE,99,7E,98,7F,C1,87,EF,92,1F,89,1F,F9,61,652 
3228 DATA FB,C1,87,C0,0F,F8,38,7C,F4,63,F9,93,FA, DE, SE, B4A 
3239 DATA 3C,18,FC,29,FF,63,67,6F, 06, 3F,08,3F,F9,E1,E3, 748 
3249 DATA C1,87,C8,8F,FC, 38, 78,F0,61,FD,63,FF,9E, {E,3C, 7EE 
3259 DATA 18,FC,28,FF,C3,87,9F,96,3F,18,3F,F0,C1,07,C1,7F1 
3268 DATA 9F,86,0F,FC, 79,F1,E9,C3,E3,93,FF,1C,3C,F8,21, 7FA 
3279 DATA F9,C8,FF,86,9E, 7C, 18, 7C,E8, 77,E3,96,3E, 90, 3C, 76D 
3288 DATA F9,83,F1,87,3F,09,3E,F8,01,FF,07,3F,0C,3C,F8,5E6 
3298 DATA 81,FF,DE,3E, 0C,38,F8,61,FF,DE, 7E, 18,78,FB,61,65D 
3399 DATA FF,8C,7E,18,78,F8,61,FE, 1C,7E, 18,79,F8,E1,F2,666 
3319 DATA 1C,7E,18,38,F8,69,FB, SE, 3F,9C, 1C, 7C, 78, 7C, 87,521 
3328 DATA 3F, 80, 4C,3E, 78,3C,07,1F,62,06,3F,FE, 09,03,8F, 434 
3334 DATA C1,83,97,FF,88,C1,C3,F8,F4,99,FB,C8, 90,00, 3E, 82F 
3349 DATA F8,99,39,C1,89,18,1E, 3C,99, 1C,E1,86, 90,97, 1E, 498 
3359 DATA 39,06, 70,C3,06,97,CF,38,91,F8,C3,87,8F,F3,FE,6CD 
3369 DATA 28,03,91,E1,87,7C,FF, 89,63, 83,F8,09,FF, 7F,E9, 883 
3378 DATA 1C,C3,FE,99,3F,FF,F8,C7,81,FF,89,0F,F9,FF,EU,9C1 
3389 DATA C3,CF,FC,99,FE, 7C,F4,09,E7,FF,92,3F,FF,FE,91,91D 
3399 DATA 8F,FF,C8,93,FE,FF,EB,31,FF,FC,08,3F,FF,FC, 89,904 
3499 DATA 1F,FF,F8,91,FF,FF,E9,30,FF,FF,C9, 1F,FF,FC, 91, AQ7 
3419 DATA DF,FF,FC,91,FF,FE,FF,CC,7F,FF,F6,FF,FF,FF,FF,D15 
3429 DATA BD,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EAF 
3439 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3449 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EF1 
3459 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3469 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3470 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3488 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EF1 
3499 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EF1 
3509 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3518 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF, EF 
3528 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EF1 
3539 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3549 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3558 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EF1 
3569 DATA FF,FF,FF,FF,FF,FF,FF,FF,CF,FD,EF,FF,C8,1F,FF,D98 
3574 DATA 8F,F8,9C,63,9C, 77,FF,C4,73,EE,31,C7,FF,C9, BB, 97C 
3589 DATA F1,0E,FE, 33,8E,FC,C3,18,E7,FF,E6, 33, 3F, FD, CF, 90F 
3599 DATA 89,46,FF,FF,32,2F,F9,B2,91,9F,BF,FC,66,4E,FB, B5A 
3689 DATA 26,53,97,FF,FE,64,9E,E7,CC,E2, 4C,FF,FE, 66, 4F, 912 
3619 DATA 77,F6,61,26,F3,FC,33,47,33,D2,21,66,7B,FE, 19, 79B 
3629 DATA 97,B9,C8B, 36,83, 7D, BE, 4C, 93, D9, E5, 98, C9, 3C, DF, 892 
3639 DATA 26,41,EE, F2, 4C,24,DF,EF, 91, 32,78, 2D, 32, 19, 27,662 
3649 DATA F3,6C,CC,9C,C9,48, 84,990, ED, B2, 33, 27,36, C2,68, B46 
3659 DATA 26,DF,60,86, 49, EC, 92,C8, 25, 9A, CB, 39, CB, 34,94, 7D6 
3669 DATA 49,84,13, 4D,E2,94,C9, 4C, 4,98, 43, 39, DF,61,26, SBD 
3679 DATA 49,64,24,C2, 49, A4,D3,98,89, 31,92, 13,98, 22, A, 4FE 
3689 DATA 4F,21,92,61,34,B2,98, 46, 33, CB, 21,09, 21,94,D3, 5D4 
3699 DATA 98,26, 1B,EC, 22,22, 4C,64,94,C8,09,9E, F3, 06, 96, 48D 
3789 DATA 64, 86,48, 4C,98,99,E4,95, 49, 98,93, 19,09,30,06, 4A7 
3719 DATA 67,98,49,99,68,9B, 39, 88, 19, 99,33,88,69,99,C1,597 
3728 DATA 11,67,38,82,00,86, 71,09,99,18,C4, 4D,9C, C9, 98, 3AE 
3739 DATA 89, 19,08,09,08,98,08,44,D8B,CC,98,98,81,9E, 49, 2E3 
3749 DATA 99,9B,44,45,2C, 48, 4C, BD, 89, 41, 20, 28,09, 00,08, 306 
















Claude LE MOULLEC 


Valable pour CPC 464 
664 - 6128 





Ce jeu reprend le principe de Sphérical mais 
cette fois, il ne s’agit pas de faire passer une 
porte par une boule mais de faire rentrer un 
ours dans une cage. Les règles et déplacements 
sont inclus dans le jeu. Circus Folies ne se joue 
qu'au joystick et se compose de 2 fichiers : 
CIRCUS.BAS, le programme principal et 
DATACIR, chargeur BASIC qui sauvegar- 
dera le programme CIRBIN. 


169 REM : : > LB 
CIRCUS- BAS LID-REN tue nee ent )AL 


188 GOSUB 3499:REM si vous {tes trop fain{ant pour tape KR 


IN REM cssssossssesesenceneneesse AV r la priseutation ne tapez pas cette ligne 

25 REM : É DEC 199 DEFINT A-Z:MODE 9:BORDER 9 »YC 
38 REM : CIRCUS FOLIE ! >RG 249 RESTORE 219:FOR H=9 TO 15S:READ A: INK H,A:NEXT )RV 
49 REM : ; & DEE 218 DATA 8,4,2,11,9,24,3,6,1,16, 15,13,26,28,19,18 >NH 
SS REM : CLAUDE LE MOULLEC : pa NC | 229 DEF FN POUX,Y)=8CH58+(Y-1)#169+(X-1)x4 >HP 
69 REM : 83 RUE J CURIE œ œ >RM 238 DEF FN LP(X,Y)=4C99+(Y-1)#89+(X-1)#2 >GR 
TA REM : 22429 PLOUARET >TH 249 DIM SP(38):FOR H:9 TO 23:SP(H+1)=49729+(Hx64):NEXT  >XA 
89 REM TEL 96 38 94 24 : >PD 258 DIM JE(24,12):DIM ai$(29):tas{ >AU 
99 REM : : DEK 269 WINDOW #1,2,19,4,23:VIE=4 DXN 
199 REM sssssssesesesesesseseness )AD 2789 ENV 1,199,3,1:ENT 1,199,2,2:ENV 14,1,5,1,19,1,4,5,- >2D 
119 MEMORY 49798 >GG 3,1 

128 LOAD "'cirbin",49728 DUA 289 ENT 2,19,-2,2:ENV 2,19,-1,2 NT 
139 REM ssstsssesesseseseneseses )AG 298 ENV 15,1,5,1,19,1,4,5,-3,1:ENT 14,49,-19,1:ENT 15,5 MM 
149 REM : : >KK ,"28,1,69,19,1 

159 REN : VARIABLES DE BASE : DK 305 REM ssssesessesesenessessense )AF 


C) 
TU 





318 REM : ; )KJ | h)=al-8 00 

328 REX : DECOR DE BASE ; DRF | 789 NEXT g [ ) >PB 
339 REM : ! >LA | 798 SOUND 1, INT(RND+699)+68,5, 15:NEXT h GB 
949 REM sossosseossoseesessensesse >AK | 889 FOR h=2 TO 11:READ aî:a1$(h)=BIN$(ai,9):NEXT )Q7 
358 CALL &A9GD,FN P0(1,1),SP(1):CALL &AGOD,FN PO(29,1), DA | 818 FOR h=2 TO 11:1F ai$(h)="9#9899969" THEN 859 >LR 
SP(2) 829 FOR g=1 TO 9:b1$=HID$(a1$Ch),g,1):bi=VAL(b1$) )QN 
368 CALL &ASBD,FN PO(29,12),SP(3):CALL &AGGD,FN PO(1,12 DFB | 838 IF b1=1 THEN CALL &AGBD,FN po(g+18,h},sp(al):je(gti )JV 
),SP(4) ÿ,h)=al-8 

379 FOR H=2 TO 19:CALL &ASBD,FN PO(H,1),SP(5):CALL &A99 DER | 849 NEXT g >NJ 
D,FN PO(H,12),SP(7):NEXT 859 SOUND 1, INT(RND*699)+69,5,15:NEXT h:RETURN )aQ 
389 FOR H:=2 TO 11:CALL &AGBD,FN POC1,H),SP(8):CALL &A9S DEK | 869 READ nx,uy,c,d HG 
D,FN P0(26,H),SP(6):NEXT 874 CALL &AGOD,FN po(mx,my),sp(12): je(mx,ny)=5 >QC 
399 a$="SCORE : 98908 99 89989:HIGHT":ZL=1: >YT | 889 CALL &AGBD,FN polc,d),sp(11):je(c,d)=4 »)JJ 
YL=1:CER=2:GOSUB 428 898 READ n:1F n°1 THEN READ nx,ny:CALL &ABGD,FN potnx,n >DC 
499 a$=" 29 ":ZL=19:YL=25:CER=2:GOSUB 429 NJT | y),5p(16):je(nx,ny)=6 

418 GOTO 588 >YG | 989 READ x,y:CALL &ABBD,FN pot(x,y),5p{21) JL 
429 AS=UPPERS(A$):FOR T=1 TO LEN(AS):PS=CASC(MIDS(A$,T, DHV | 919 ac=21:fin=ÿ:tp=29:mf:sm=i:sn=1:tps=f:gan-f:ca=ÿ  DZR 
1)))-48 928 GOSUB 2399 :RETURN )RA 
439 IF PS8 THEN PS=43 )QJ 938 REM sssssssesesesesesessences >AQ 
449 CALL &Q9D28,FN LPCZL,YL)+(T+2)-CER, &9D49+(PS#16):NEX >MD | 949 REX : | LH 
T:RETURN 958 REM : ROUTINE PRINCIPALE : »2F 
459 REM sssrsstesesteseserensesc >AN | 969 REX : : >LK 
469 REX : : DLE | 978 REM sosssssssesessessenseeee DAV 
479 REM : BRANCHEMENT TABLEAU : >2N | 989 EVERY 59 GOSUB 2369:EVERY 15,1 GOSUB 1798 )LZ 
489 REM : : LG | 999 IF fin=1 THEN 2599 >PN 
499 REM sessssssseeteseestenterse AR | 1998 IF n=1 THEN GOSUB 2988 0e >UD 
598 ON ta GOTO 519,528,530,549,559,560,579,589,598,698, JU | 1919 IF JOY(9)=8 THEN 1199 (2 >TY 
619,628,639 1925 IF JOY(#)=4 THEN 1249 TA 
518 RESTORE 2888:G0SUB 699:GOTO 989 >DA | 1938 IF JOY()=1 THEN 1558 >TC 
524 RESTORE 2928:GO0SUB 69$:G0T0 988 >CE | 1848 IF J0Y(8)=2 THEN 1629 TC 
539 RESTORE 2968:G0SUB 699:GO0T0 988 >D8 | 1959 IF J0Y(9)-=29 OR JOY(#)=24 THEN 169ÿ DEK 
549 RESTORE 3999:GOSUB 69$:G0T0 988 e° >CW | 1868 IF JOY(#)-16 THEN 1498 JUL 
559 RESTORE 3949 :GOSUB 698:GOTO 989 © >CB | 1979 IF INKEY$-CHR$(13) THEN FIN=1 >BC 
569 RESTORE 3989:GOSUB 698:G0T0 989 >CG | 1489 GOTO 998 GC 
579 RESTORE 3128:G0SUB 699:GOT0 989 >CC | 1999 REM ::: A DROITE ::: >RP 
584 RESTORE 3169:G0SUB 698:G0TO 988 Q@ >CH | 1198 DI:1F ac=21 THEN CALL &ABOD,FN polx,y),sp(ac):CALL DDV 
599 RESTORE 3298:G0SUB 699:GO0T0 989 @ CD LAGBD, FN polx,y),sp(18):ac=18:G0T0 1228 

689 RESTORE 3249:GOSUB 69ÿ:G0T0 988 e >CZ | 1118 a=je(x+1,y):1F a=9 THEN 1138 )2T 
619 RESTORE 3289:G0SUB 699:G0T0 988 >CE | 1129 IF a<5 THEN 1199 ELSE fin:1:E1:G0T0 998 KW 
629 RESTORE 3329:GOSUB 69#:G0T0 988 >CA | 1138 CALL &ABGD,FN polx,y},sp(ac):SOUND 1,388,5,1,1,1,1 >ZL 
639 CLS #1:a$="BRAVO @ @ @":ZL=15:YL=12:G0SUB 429:G0T0 DER | 5 

2779 1148 FOR h=1 TO 3:CALL &AGBD,FN polx,y)+h,sp(17+h) RU 
64 REM ssstsssssesssseesreseest: JAN | 1159 FOR t=1 TO 5B:NEXT:CALL &ABOD,FN polx,y)+h,sp(17+h >AN 
659 REX : s DLF |) 

669 REX : DESSIN TABLEAU ; DUF | 1168 NEXT:x=x+1:CALL RABYD, FN po(x,y),sp(18):ac=18 )VP 
674 REM : É DLH | 1178 IF je(x,y+1)=9 OR je(x,y+1)24 THEN 1379 ELSE EI:G0 >CV 
689 REM :ssssssetsereseeseseneese DAT | TO 99ÿ 

698 ERASE je:DIM je(29,12):FO0R h=1 TO 29:je(h,1)=1:jeth >MQ | 1188 REN ::: MONTE SUR UNE CAISSE ::: )DQ 
,12)=1:NEXT 1199 IF je(x,y-1)=9 AND je(x+{,y-1)=9 THEN 1298 ELSE EI DFD 
789 FOR h=2 TO 11:je(1,h)=1: je(28,h)=1:NEXT KE | :GOT0 99 

719 CLS H:AS="LIFE :"#STR$(VIE):ZL=17:YL:14:CER=2:G0SU >GL | 1298 CALL BABGD,FN polx,y),spac) :SOUND 1,389,5,1,1,1,1 >2ZJ 
B 429 5 

729 FOR T=1 TO 2990: NEXT:CLS Hi:a$=" 28 ":ZL=:19:YL=25:C DRZ | 1218 y=y-1:G0TO 1149 NV 
ER=2:GOSUB 428 1229 FOR t=1 TO 199:NEXT:WHILE INKEY$O"":WEND:EI:G0TO EE 
739 al=9:GO0SUB 748:al=19:G0SUB 749:GO0T0 869 >LD | 999 

749 FOR h=2 TO 11:READ al:a1$(h)=BIN$(al,9):NEXT >Qc | 1238 REM ::: A GAUCHE ::: RG 
759 FOR h=2 TO 11:1F a1$(h)="096998908" THEN 799 DLY | 1249 DI:IF ac=18 THEN CALL &AGBD,FN polx,y),splac):CALL >DU 
768 FOR g=1 TO 9:b1$=MID$(at$h),g,1):b1=VAL(b18) | oQR | BABBD,FN po(x,y),sp(21):ac:21:G0T0 1228 

719 IF bi=1 THEN CALL &AGSD,FN polg+i,h),splal):je(g+i, >GY | 1259 a=je(x-1,y):IF a=ÿ THEN 1278 >2F 


() 
1468 


1268 IF aC5 THEN 1338 ELSE fin:1:El:GO0T0 998 

1279 CALL &ASGD,FN po(x,y),splac):SOUND 1,389,5,1,1,1,1 

5 

1288 FOR h=1 TO 3:CALL &AÿBD,FN polx,y)-h,sp(28+h) 

1298 FOR t=1 TO SB:NEXT:CALL &ABSD,FN polx,y)-h, sp(28+h 
} 

1398 NEXT:x=x-L:CALL RAGGD,FN polx,y),sp(21) 

1319 ac=21:1F je(x,y+1)=8 OR je(x,y+1)34 THEN 1379 ELSE 
El:GO0T0 999 

1328 REM ::: MONTE SUR UNE CAISSE ::: 

1339 IF je(x,y-1)2=8 AND jelx-1,y-1)=8 THEN 1349 ELSE EI 
:COT0 998 

1348 CALL &ABSD,FN polx,y)},sp(ac):SOUND 1,388,5,1,1,1,1 
5 


XKX 
>ZR 


JRV 
>AP 


HV 
>KD 


DL 
>FG 


>ZP 


1359 y=y-1:G0TO 1289 NF 
1369 REM ::: IL TOMBE ::: RT 
1379 DI:tb=9 )EE 
1389 IF je(x,y+1)24 THEN fin=1:G0T0 99ÿ >FF 


1398 tb=tb+{:CALL &ABGD,FN po(x,y),spac) :SOUND 1,46+(t 
b#19),3,5 

1498 CALL &AB52,FN potx,y):FOR h=1 TO 3:CALL &A97B, spla 
c) 


XI] 


>] 


1418 FOR t=1 TO 19:NEXT:CALL RAGE, sp(ac) :NEXT >PP 
1429 CALL RA9T7B,splac):y=y+1:El »21 
1438 IF je(x,y+1)=9 OR jelx,y+1)>4 THEN 1388 ELSE 999 TD 
1449 REM sossssrssseseseseeeennen »>BQ 
1458 REN : ° )TB 
1468 REM : CREATION CAISSES (0 >XV 
1478 REX © >TD 
1489 REM :s:sssssessesesenseenesee BV 
1498 IF ac=18 THEN 1529 >PH 
1598 IF je(x-1,y)=8 THEN 1519 ELSE 999 >CZ 


1518 CALL RABGD,FN polx-1,y),sp(18):je(x-1,y)=2:G0T0 99 
ÿ 

1528 IF jelx+t1,y)=8 THEN 1539 ELSE 999 

1539 CALL &ASAD,FN polxt{,y),sp(19):je(x+ti,y)=2:G0T0 99 
ÿ 


>AK 


>CB 
AH 


1549 REN ::: COUPS DE TETE ::: NT 
1558 IF je(x,y-1)=2 THEN 1569 ELSE 99ÿ >CM 
1568 POKE KAB29,9:CALL RASBD,FN polx,y),sp{24) >NH 


1579 CALL &A952,FN polx,y):FOR h=1 TO 3:CALL &Aÿ5C, sp(a 
c) 

1588 FOR t=1 TO SO:NEXT:CALL RAGE, sp(24) :SOUND 1,898,5 
12, 3» 18:NEXT 


)ZR 


>QA 


1598 CALL &Aÿ5C, sp(ac):POKE &AD28,&AE:y=y-1 )LC 
1689 je(x,y)=9:G0T0 1179 TA 
1618 REN ::: AVEC LES PIEDS ::: )XU 
1629 IF je(x,y+1)=2 THEN 1639 ELSE 999 >CF 
1638 POKE &A926,9:CALL &AGBD,FN polx,y),sp(24) >NK 


1649 CALL &Aÿ52,FN polx,y):FOR h=1 TO 3:CALL &Aÿ7B, sp(a 
c) 

1658 FOR t=1 TO 5B:NEXT:CALL RASGE, sp(24) : SOUND 1,809,5 
512, ,, 18: NEXT 


»2Q 


)QY 


1669 CALL KABTB, sp(ac):POKE &A928,&AE:y=y+1 >KH 
1678 jetx,y)=4:G0T0 1179 e® >TH 
1688 REM ::: CAISSES LATERALES ::: ù | )BZ 
1698 IF ac=18 THEN 1729 >PR 
1799 IF jelx-1,y+1)=8 THEN 1719 ELSE 998 DEN 


1719 CALL &AGBD,FN polx-1,y+1),sp(19):je(x-1,y+13=2:G0T DEC 


0 998 
1728 IF je(xt1,y+1)=8 THEN 1739 ELSE 999 )EQ 
1738 CALL &ADGD,FN polx+t,y+1},sp(18):je(xti,y+1)=2:G0T DEA 


0 998 

LAS: REM er sn nement & >BU 
1759 REX : ee x: 
1768 REN : LES ANIMAUX TG 
1778 REX : >TG 
LION REN sine sen inerte ° »)BY 
1798 Dl:pa=pati:0N pa GOTO 1899,1829 @@ >CW 
1898 CALL &AS9B,FN po(mx,ny),sp{13) >CK 


1818 IF n=1 THEN CALL &A999,FN potnx,ny),sp(16):EI:RETU »YD 
RN ELSE EI :RETURN 

1828 pa=#:CALL &A999,FN po(nx,ny),sp(12) 

1839 IF n=1 THEN CALL &A999,FN potnx,ny),sp(17):EL:RETU 
RN ELSE EI :RETURN 


JHC 
»YG 


1848 REN ::: DEPLACEMENT DE L'OURS ::: JW] 
1859 IF je(mx,my+1)=9 OR je(mx,ny+1)=4 THEN sm=3 > 
1868 ON sn GOTO 1879,1949,2918 >WP 
1879 IF mx+1=x AND my=y THEN fin=1:G0T0 1999 LV 
1888 IF je(mx+{,ny)=4 THEN fin=1:gan=1:G0TO 1999 )RR 
1899 IF je(mxti,my)C>9 THEN sn=2:RETURN HU 
1998 DI:CALL &aB99,FN polmx,ny),sp(24):je(mx,my)=$# )VT 


1919 mx=mx+i:CALL &AB99,FN polnx, ny), sp(12): je(mx,my}=5 )BT 


1929 ET:RETURN )GE 
1939 REM ::: SENS 2 ::: >PK 
1948 IF mx-1=x AND my=y THEN fin=1:G0T0 1978 >)LC 
1959 IF je(mx-1,my)=4 THEN fin=1:gan=1:G0T0 197ÿ )RZ 
1968 IF je(mx-1,my){>8 THEN sm=1:RETURN )AV 
1979 DI:CALL &A99S,FN polax, my), sp(24) : je(mx,my)=0 )VA 
1988 mx=mx-1:CALL &AB99,FN potnx,my),spl12):je(mx,my)=5 >BC 
1999 EI :RETURN >HB 
2898 REM ::: SENS 3 ::: >)PZ 
2919 IF mx=x AND ny+ti=y THEN fin=1:RETURN XKJ 
2828 IF je(mx,ny+1)=4 THEN fin=1:gan=1:G0TO 2949 >QG 
2838 IF je(mx,my+1)C>8 THEN sn=INT(RND#2)+1:RETURN >uC 
2848 DI:CALL &AS9B,FN pol(mx,ny),sp(24):je(mx, my)=8# JWN 
2855 my=my+1:CALL &A999,FN po(mx,my),sp(12): je(mx,my)=5 >BQ 
2868 EI :RETURN GA 
2979 REM ::: DEPLACEMENT DU TAUREAU ::: »GJ 
2988 Dl:pas=past{:IF pas=4 THEN pas=8:G0TO 2998 ELSE EI DJY 
RETURN 

2898 ON sn G0TO 2199,2168, 2219, 2269 )AF 
2198 IF nx+1=x AND ny=y THEN fin=1:GO0TO 2138 >LD 


2118 IF je(nx+i,ny)=2 AND ca>8 THEN ca=ca-1:CALL &A999, >CG 
FN potnx+{,ny),s5p(24):je(nx+1,ny)=9:SOUND 2,59,9,15,2,2 
,31:GO0T0 2158 

2128 IF jelnx+{,ny))8 THEN sn=INT(RND#3)+2:EI:RETURN  DYG 
2138 CALL &A99G,FN polnx, ny), sp(24):je(nx, ny)=8 >H 
2148 nx=nxti:CALL &AS9S,FN potnx, ny), sp(16):je(nx,ny)}=6 >QX 
ET :RETURN 

2158 sn=INT(RND#4)+1:EI :RETURN D AE 
2169 IF nx=x AND ny+1=y THEN fin=1:G0T0 2198 LV 
2178 IF je(nx,ny+1)=2 AND ca>8 THEN ca=ca-{:CALL &A99G, >CN 
FN poltnx,ny+1),sp(24):je(nx,ny+1)=29:SOUND 2,59,9,15,2,2 
,31:G0T0 2158 

2188 IF je(nx,ny+1))8 THEN sn=INT(RND#4)+1:EI :RETURN >YN 
2199 CALL &A99B,FN potnx,ny),sp(24):je(nx,ny)=8 >RF 
2298 ny=ny+1:CALL &AB9Ÿ,FN polnx,ny),sp(16):je(nx,ny)=6 >QW 


ET: RETURN 

2218 IF nx-1=x AND ny=y THEN fin=1:G0T0 2248 

2229 IF je(nx-1,ny)=2 AND ca>Q THEN ca=ca-1:CALL &A999, 
FN polnx-{,ny),sp(24):je(nx-1,ny)=@:SOUND 2,59,9,15,2,2 
,31:G070 2159 

2238 IF jelnx-1,ny))8 THEN sn=INT(RND#4)+1:EI :RETURN 
2249 CALL &AGOS,FN polnx,ny),sp(24):je(nx,ny)=8 

2258 nx=nx-1:CALL &AB9B,FN polnx,ny),sp(16):je(nx,ny)=6 
ET: RETURN 

2268 IF nx:x AND ny-1=y THEN fin:1:G0T0 229$ 

2278 IF je(nx,ny-1):2 AND ca>ÿ THEN ca=ca-{:CALL &A998, 
FN polnx,ny-1),sp(24):je(nx,ny-1)=9:SOUND 2,59,8,15,2,2 
,31:G070 2154 

2288 IF jelnx,ny-1)28 THEN sn=INT(RND#3)+1:E1 : RETURN 
2298 CALL &ASOB,FN potnx,ny),sp(24):Je(nx,ny)=8 

2399 ny=ny-1:CALL &AB9Y,FN polnx,ny),sp(16):je(nx,ny):6 
EL :RETURN 


2318 REM srsssrsgessosnentensenres 
2320 REN : ® 
2339 REM : GESTION COMPTEURS  : e° 
2349 REM : ! 
2358 REN siennes 


2369 tp=tp-1:a$=STR$(tp):A$=RIGHTS(A$, LEN(AS)-1):1F tp: 
ÿ THEN fin={:tps=1:ca=2ÿ 

2378 IF tp>9 THEN z1=29:yl=25:cer=2:G0SUB 429:RETURN 
2388 a$="f"+a$:GOSUB 428:RETURN 

2399 a$=STR$ (ta) :A$=RIGHTS(A$, LENCA$)-1) 

2498 IF ta)Q THEN ZL=2ÿ ELSE ZL=21 

2419 YL=1:GOSUB 428:RETURN 

2428 IF sc=f THEN a$="#8998":2L=7:YL=1:GOSUB 429: RETURN 
2439 a$=STR$ (sc) :A$=RIGHTS(A$,LEN(A$)-1) 

2448 IF sc<i8 THEN ZL:11:YL=1:GOSUB 42B:RETURN 

2458 IF sc<198 THEN ZL=19:YL=1:G0SUB 429 :RETURN 

2468 IF sc<1998 THEN ZL-9:YL=1:GOSUB 429:RETURN 

2479 ZL:=8:YL=1:GOSUB 428 :RETURN 

2488 IF rec=8 THEN at-"99989":2L:3#:YL={:GOSUB 428:RETU 
RN 

2498 a$=STR$(rec):A$=RIGHTS (AS, LEN(A$)-1) 

2598 IF rec<i8 THEN ZL=34:YL=1:GOSUB 429:RETURN 

2518 IF rec<199 THEN ZL=33:YL=1:GOSUB 42B:RETURN 

2528 IF rec<1899 THEN ZL=32:YL=1:GOSUB 429:RETURN 

2538 ZL=31:YL=1:G0SUB 428:RETURN 


2569 REM : FIN DE PARTIE : € 
2578 REX : ! 


2598 IF tps=1 THEN tps=f:fin=@:mu=REMAIN(Z):EVERY 9 GOS 
UB 1859:G0T0 998 

2698 FOR h=9 TO 3:œu=REMAIN(R):NEXT:IF gan=f THEN 2789 
2619 REM ::: GAGNE ::: 

2628 FOR t=1 TO 1899:NEXT 

2639 ta=ta+i:BORDER 26:FO0R h={ TO 28:CALL &AB9G,FN po(m 
x,ny),sp(12) 

2648 sc=sc+5:GOSUB 2429: SOUND 1,h#19,19,14:BORDER h 
2658 FOR t=1 TO 29:NEXT:CALL &A89B,FN potnx,ny),sp(11) 
2668 FOR t=1 TO 29:NEXT t,h 

2679 IF sc>rec THEN rec=sc:GOSUB 2488 

2688 BORDER 8:G0T0 588 


(1) 


>LK 
>CQ 


)YL 
>RB 
)QB 


)LA 
C4 


)YQ 
RG 
)Q7 


>BN 
RJ 
)ZR 
>TA 
BR 
>HK 


NY] 
)ZE 
HR 
AN 
UM 


)AG 
>HA 


)Qu 
>RM 
RV 
BY 
)CL 


)JD 
RL 
>TD 
DUX 
>BB 
)BT 
>TD 
>TM 
>TF 
)BX 
)WB 


YU 
)PR 
)TU 
NJ 


DL 
>vH 
UM 
)EP 
)QT 


2699 REM ::: PERDU ::: >PH 
2798 SOUND 4,1289,8,8,14,14:SOUND 4,8,29,2,,,18 DMF 
2718 FOR h-1999 TO 1598 STEP 189:SOUND 4,h,39,9,15,15:N dAF 
EXT 

2728 FOR h=1 TO 28B8:NEXT :vie=vie-1 NT 
2739 IF vie=ÿ THEN 2749 ELSE 599 >XY 
2748 CLS Hi:a$="PERDU @ @ @":ZL:15:YL=12:GOSUB 428 UF 
2758 RESTORE 2769 :FOR h:1 TO 19:READ a,b:SOUND 1,425+( >MR 
aX25),25#b, 15: SOUND 1,9,2:NEXT 


2769 DATA 3,4,3,3,3,1,9,3,1,1,1,3,3,1,3,3,4,1,3,4 NX 
2778 a$="UNE AUTRE ? : O=N :":2ZL=11:YL=14:GOSUB 429 )WZ 
2789 A$=INKEYS$:IF A$="" THEN 278ÿ )2N 
2798 A$=UPPERS(AS):1F A$=°N" THEN END DD 
2898 IF A$="0" THEN 2819 ELSE 2789 )YN 
2818 A$=" 99 ":2L=19:YL=1:CER=2:G0SUB 429 )JQ 
2828 ta=1:sc=ÿ:GOSUB 242ÿ:vie=4:GOSUB 2399:GO0T0 599 >WD 
2838 REN sstsssesiensessesesseses: )BV 
2849 REM : : TF 
2858 REX : DATA 12 TABLEAUX  : NB 
2869 REM : ; TH 
2878 REM soseosssssesesseseseseence )BZ 


2889 DATA 9,9,511,9,8,0,384,48,16,16,9,9,9,7,0,9,9,9,9, >WQ 
ÿ 


2898 DATA 9,0,9,0,0,8,9,0,8,0,9,0,0,0,0,0,9,0,0,9 >MH 
2999 DATA 4,3,3,11,9,18,4 DRT 
2918 REM ::: TAB 2 ::: JAN 


2929 DATA 9,9,256,244,0,0,60,0,4,4,9,56,64,384,6,9,0,9, >YY 
9,9 
2938 DATA 9,8,9,9,12,32,3,8,9,9,0,0,9,9,0,8,498,9,9,8 TR 


2949 DATA 2,3,2,11,1,15,19,11,4 WA 
2958 REM ::: TAB 3 ::: >NU 
2968 DATA 9,256,8,192,9,511,9,0,0,64,6,0,0,385,9,9,121, DAA 
9,9,8 

2978 DATA 8,8,9,12,9,8,9,9,8,16,9,9,9,24,9,8,9,64,64,64 >VK 
2988 DATA 2,2,2,8,1,16,9,14,11 DL 
290$ REN ::: TAB 4 ::: )N2 
3999 DATA 8,456,8,48,16,16,4,4,0,16,0,3,0,4,48,9,269,12 DET 
, 128, 128 

3418 DATA 8,8,1,2,1,8,128,96,8,9,0,64,9,264,8,8,9,9,0,9 DVB 
3928 DATA 19,2,2,5,1,19,5,19,11 WF 
3938 REM ::: TAB 5 ::: >NK 


3948 DATA 4,4,4,413,1,97,8,256,8,9,9,128,152,9,8,8,8,8, 22 
64,4 

3859 DATA 392,584,5894,96,9,9,8,9,9,8,9,9,0,16,9,9,8,96, >YG 
9,8 

3868 DATA 4,2,19,8,1,15,3,18,11 NT 
3978 REM ::: TAB 6 ::: >NQ 
3888 DATA 4,0,9,511,9,0,34,34,34,34,9,8,0,595,8,0,64,64 )C7 
,64,64 

389$ DATA 11,511,511,8,9,9,0,8,9,0,594,594,594,0,0,9,9, AZ 


9,9,9 

3198 DATA 2,2,2,11,1,6,2,7,11 WE 
3119 REM ::: TAB 7 ::: NL 
3128 DATA 8,387,9,3,4,29,68,64,256,8,8,256,9,256, 128,64 DHB 
, 32,16, 8,4 


3139 DATA 8,8,8,0,3,3,0,0,8,0,0,8,9,9,256,384,9,64,192, DV] 
448 


3148 DATA 19,2,16,11,8,2,2 dg >RK 
3159 REM ::: TAB 8 ::: e )NR 


3169 DATA 4,64,64,64,64,64,64,96,64,64,9,9,8,9,1,8,9,9, 
9,9 

3179 DATA 9,63,63,63,63,63,63,31,31,9,8,511,511,511,519 
,511,511,511,511,8 

3188 DATA 15,2,5,19,1,12,11,2,11 

3199 REM ::: TAB 9 ::: 

3298 DATA 9,8,128,294,9,68, 32,36,0,16,9,256,0,511,256,2 
56, 256, 9, 256, 256 

3219 DATA 16,9,8,9,9,6,68,8,9,0,256,3,8,0,9,0,8,9,0,8 


3229 DATA 19,2,16,9,1,16,7,4,4 

3238 REM ::: TAB 19 ::: 

3249 DATA 9,1,2,0,8,7,0,68,0,16,8,8,0,384,9,0,12,484,4, 
132 

3258 DATA 8,8,0,9,0,0,9,0,8,9,0,0,9,0,9,0,9,9,8,9 

3268 DATA 19,2,16,9,1,2,11,19,11 

3278 REN ::: TAB 11 ::: 

3288 DATA 9,64,64,64,64,64,64,64,64,64,9,8,9,2,2,34,2,2 
452 

3298 DATA 12,15,11,15,15,9,0,8,9,9,192,44B,64,448, 448,9 
,9,9,0,0 

3399 DATA 19,2,19,11,8,3,11 

3319 REM ::: TAB 12 ::: 

3329 DATA 9,133,135,229,8,0,9,0,0,8,9,112,64,112,9,9,8, 
9,0,0 


3339 DATA 6,9,0,0,0,119,69,117,21,119,0,9,9,0,8,23B, 132 
, 196, 132, 132 

3348 DATA 4,4,9,19,1,9,8,14,4 

3359 REM sesssnsseseseesesesensest x 

3369 REX : 

3379 REX : PRESENTATION ce 

3388 REN : (facultatif) 

3399 REM ti srenereisemes een 


3498 ENV 1,=11,199B:ENV 4,19,-19, 18:EVERY 25,2 GOSUE 35 
78 

3418 MODE G:BORDER 9:RESTORE 3429:FO0R H=8 TO 12:READ A: 
INK H,A:NEXT 

3428 DATA 9,26,23,29,14,11,5,2,1,3,6,15,24 

3439 FOR f=1 TO 35:Q=RND+649:W=(RND4384)+16 

3448 PLOT Q,N+38,9:DRAU Q,N-38:PLOT Q+52,U:DRAN Q-52,U: 
PLOT Q+8,W+4:PLOT Q-8,W+4:PLOT Q-8,W-4:PLOT Q+8,N-4 
3458 PLOT Q+4,W+8:DRAN Q+4,W-8:PLOT Q-4,W+8:DRAU Q-4,U- 
8:PLOT Q+16,W+2:DRAW Q-16,W+2:PLOT Q+16,W-2:DRAW Q-16,N 
-2:PLOT Q,W+28,8:PLOT Q,W-2B:PLOT Q+48,W:PLOT Q-48,4 
3469 PLOT Q,W+6,19:DRAW Q+12,W:DRAW Q,W-6:DRAW Q-12,U:D 
RAW Q,W+6:PLOT Q,W+18:DRAW Q,W-18:PLOT Q+32,W:DRAN Q-32 
» M:PLOT Q,W+16,9:PLOT Q,W-16:PLOT Q+28,W:PLOT Q-28,4:PL 
OT Q,W+19,11:DRAW Q,N-19:PLOT Q+16,W:DRAMW Q-16,W 


3479 PLOT Q,W+4,12:DRAW Q,W-4:PLOT Q+4,W:DRAW Q-4,W:PLO » 


T Q+4,W+2,11:PLOT Q-4,W+2:PLOT Q-4,W-2:PLOT Q+4,4-2 
3489 NEXT:FOR F=1 TO 299:PLOT RND*649, RND+384+16, 12:NEX 
T 

3498 OUT &BCA9,6:OUT LBDA9, 24 

3599 A$="CIRCUS":Y-259:X=B:GOSUB 3528 

3519 A$="FOLIE":Y=199:X=198:G0SUB 3528:G0T0 3559 

3528 LOCATE 1,25:PRINT A$ 

3539 FOR A=14 TO ÿ STEP -2:FOR B:@ TO LEN(A$)*x32-2 STEP 
4:1F TEST(B,A) THEN FOR C= TO 4 STEP 2::PLOT (C-D)#2+ 
(A+B)#3+X, Ÿ+A#4,5:DRANR 9,28:DRANR 6,6,2:NEXT:FOR C=-1 


Ci 
Ja6e 


)2] 


TO 1 STEP 4:PLOTR -2,-2,7:DRAUR 6,C#29:NEXT 

3549 NEXT B,A:LOCATE 1,25:PRINT SPACES (19) :RETURN 

3558 OUT &BCS8,6:OUT &BDSD, 25 

3568 WHILE INKEY$="":VEND:GOTO 3638 

3579 DI:IF (SQ(1) AND 7)=8 THEN EI:RETURN ELSE READ T,P 
:IF T=-1 THEN RESTORE 3699:G0T0 3598 

3589 SOUND 1,9.5x7,P,15,2,7:SOUND 2,7,P,15,1:SOUND 4,2% 
T,P,15,1,2:G070 3579 

3598 ENV 1,=11,9994:ENV 4,=11,5909:G0T0 3578 

3699 DATA 253,56, 253,59,239,59, 213,58, 213,59, 239,58, 253 
,59,284,58,319,59,319,58,284,59, 253,58, 253,85, 284, 15,28 
4,198,253,59,253,59, 239,59,213,59,213, 59,239, 59, 253,56, 
284,59 

3618 DATA 319,58,319,59,284,58,253,59,284,85,319, 15,319 
, 189,284, 59,284,59,253,59, 319,58, 284, 59, 253,25, 239, 25,2 
53,58,319,59, 284,58, 253,25, 239,25,253,59,284,58,319,58, 
284,59,426, 75 


3628 DATA 253,75,253,59, 239,58, 213,59, 213,59, 239, 59,253 


,58,284,59,319,59,319,59, 284,59, 253,59, 284, 85,319,15,31 

9,198,9,288,-1,1 

3638 CLS:MODE 1:LOCATE 14,1:PRINT'CIRCUS FOLIE":PEN 2:L 

OCATE 14,2:PRINT"------------ % 

3648 PEN 3:LOCATE 1,4:PRINT"  L'ours blanc du cirque 
LMC vient des’ {chapper.Calamity ,sa donpteuse, doitle 
renettre dans sa cage." 

3659 LOCATE 1,8:PRINT" Mais comme si cela ne suffisa 

it pas, l'animal s'est r(fugil dans un champ o'un taure 

au furieux d{fend aprement sonterritoire." 

3668 LOCATE 1,13:PRINT" Heureusement, Calamity peut 

poser oibon lui semble de nombreux cartons pourguider 

son ours vers la cage." 

3679 LOCATE 1,17:PRINT" Il se peut que ce jeu vous 

rappelleun jeu existant ou ayant exist{.Comne on dit da 

ns ces cas l@.... il ‘agit surement d'un 

e coincidence." 

3689 LOCATE 15,23:PEN 2:PRINT'BONNE CHANCE" 

3699 LOCATE 33,25:PEN 1:PRINT'CENTER)":WHILE INKEYS="": 

VEND 

3798 CLS:LOCATE 15,1:PRINT"DEPLACEMENTS":PEN 2:LOCATE ! 

5,2:PRINT'RRRRRERNERE" 

3718 LOCATE 1,4:PRINT'Joyst 


ick seulement":PEN {:LOCATE 
1,S2PRINT"----- L 


3728 LOCATE 8,7:PRINT CHR$(243):LOCATE 14,7:PRINT"= @ 
droite" 

3738 LOCATE 8,9:PRINT CHR$(242):LOCATE 14,9:PRINT'"= &@ 
gauche" 

3748 LOCATE 8,11:PRINT CHR$(249):LOCATE 14,11:PRINT"= 
coup de t}te dans carton" 

3758 LOCATE 8,13:PRINT CHR$(241):LOCATE 14,13:PRINT": 
{crase carton" 

3768 LOCATE 5,15:PRINT"<FIRE) = pose d’un carton" 

3778 LOCATE 3,17:PRINT"<FIRE) + ";CHR$(242);" = carton 
lateral gauche" 

3788 LOCATE 3,19:PRINT'<FIRE> + ";CHR$(243);" = carton 


lateral droit" 
379$ LOCATE 5,21:PRINT"CENTER) = en cas de blocage" 
3898 LOCATE 33,25:PEN 1:PRINT'CENTER)":WHILE INKEYS="": 
VEND 
3818 FOR h:9 TO 3:au=REMAIN(h):NEXT:CALL &BCA7:RETURN 


VX 
UT 
DE 
NU 


VV 


ZN 


KT 
>AG 


MN 
»GY 


>GA 
ND 


MK 


22 


)CR 
)ET 


CF 


DEP 
»GQ 


>ADE 


“à 
[4 ) 


%  eCR-BAS 


5 MEMORY &9799:CLS 

7 LOCATE 1,18:PRINT " DATAS DE LA LIGNE CORRECTS":PEN 2 
19 A=&9729:F=4ABC:L=198:MHILE AC=F:FOR A=A TO A+{5:READ C$:K= 
VAL ("&"+C$):S=S+K+65536#(S+K>32767):1F AC:F THEN POKE A,K 

28 NEXT:READ D$:T=VAL("&"+#D$):1F TC>S THEN PRINT CHR$(7);"Err 
eur ligne";L:END ELSE L=L+5 

25 LOCATE 29, 19:PRINT L-5:WEND 

148 DATA 98,44,49,99,09,53,98,02,91,91,91,92,91,84,8C,02,9142 
195 DATA 94,09, A6,98,04,01,00,92,44,ÿ4,89, 92, 44,51, A6, 92, 93B3 
119 DATA 51,92,86,91, 44,23, 69,06, 91,99,E6, 99, 98,93, 93, 92, O60B 
115 DATA 81,99,09,44,91,96,D9, 73,91, 1C,E9,66, 99,96, D9, 22, JA18 
129 DATA 89,96,88,99,91,94,A3,09,01,02,02,02,01,4C,98,92,BBA4 
125 DATA 98,59, 09,08,01,98,92,98,01,46,98,88,01,59, 92, 88, QDCB 
139 DATA 82, 99,891, A2, 89,99, 13, 88, 96,D9, 66,92, 91,93, 93, 99, 196B 
135 DATA 88,99, 09,92,B3,E6,09, 92,99, D6, 2C, #2, 11,E6, 99, 89, 1536 
148 DATA 11,E6, 99, 49, 99, D6, 2, 92, B3, E6, 89, 92, 88,99, 99,92, 1A91 
145 DATA 91,63, 03,98, 06,D9,66, 82, 49,99, 13,88, 42, 89,91, A2, 1CA1 
159 DATA 81,59, 92,88, 91, 46,98, 88,91, 99,92,08,09,59, 99,98, 1ECB 
155 DATA 91,4C,88,92,91,92,92,82,01,84, A3, 09,08, 06,88, 80, 295C 
169 DATA 89,86,D9,22,81,1C,E9,66, 91,96, D9, 73,91,98,98,44,2461 
165 DATA 99,93,93,92,01,99,E6, 99, 44, 23,99, 96,51,02, 96,01, 26B9 
179 DATA 44,91, A6, 92, 44,94, 89,92,94,01, 00,02,04,08, A6, 09,292 
175 DATA 91,94,68C,92,01,91,01,92,09,53,08, 02,09, 44,99, 99, 2A6C 
189 DATA 73,E6, 83, 88, 73,E6, 93, 88, 09, 09,60, 11,09,98, 90, 11,2F56 
185 DATA 91,33,63,51,91,33,63,51,28, 28,00, 44, 14,09, 28, 44, 3254 
199 DATA BC, 3C, 89,44, BC, 28, 28,2C,FC, BC, 1C,91,FC, BC, 1C, 49, 3848 
195 DATA 6C,C9,93,02,4C,C6,03, 92,00, 80,09, 00,00, 89, 09,60, 3AA2 
298 DATA 44,99, 80,49, 94,FC, 39,99, 44,BC, 11,99,94, BC, 39,98, 3E29 
295 DATA 84,BC,11,99,91,28,39,89,94,1C,11, 90,49, 28, 11,09, 4906 
219 DATA 49,1C,11,99,49,28,11,99,49,28,11,90,91,00,11,98,4177 
215 DATA #1,28,41,90,91,99,09,09,91,0C,D9, 89, 00, 86, D9, 89, 43A7 
229 DATA 88,89, 69,00,09,09,09,99,91,03,CB,8C,91,93,C8, 4C, 4697 
225 DATA 86,20, 7C,FC, 92,20, 7C,FC, 1C, 14,14, 7C,98, 89, 3C, 7C, 4AD7 
239 DATA 88,14,89, 28,88, 99, 14, 14, A2,93, 33,62, 2,93, 33,62, 4FDF 
235 DATA 22,96,06,96,22,96,00,00,44,93,D9,B3, 44,93, DO, B3, 53C9 
249 DATA 88,E6, 9,99, 49, E6, 0C, 92, 00,05, 90,92,09,82, 14,92, 5646 
245 DATA 69,22,08,92,90,22, 14,89, 09, 22,14,80,99, 22, 2C, 89, 58A4 
259 DATA 89,22,14,89, 89, 22,2C, 98, 69,36, 14,02,98, 22, 7C, 98, SAA2 
255 DATA 95,36, 7C,98, 99,22, 7C, 86, 09, 36,FC, 98,99, 99, 99,86, 5E44 
269 DATA 79,CF,79,CF,F9,CF,F9,CF, 79,F3, 79,E7, 3C, 3C, 3C, 3C, 6828 
265 DATA E7,9F,E7,9E,E7,DE,E7, DE, F3,9E,F3,B6, 3C, 3C, 3C, 3C, 72DE 
274 DATA 79,CF,79,CF,F9,CF,F9,CF, 79,F3, 79,E7,3C,3C, 3C, 3C, 7CBA 
275 DATA E7,9E,E7,9E,E7,DE,E7,DE, F3,9E,F3,B6,99, 89, 99, 69, 8688 
284 DATA 1F,3B,33,2F,B5,F4,F9,2F,B4,2D,3C,9F,2F,2D,8F,9F, BBAE 
285 DATA 2F,5A,9F,A5,2F,B5,F9,2F, A5,3F,B5,2F,2F,3F,3F,B4,9217 
299 DATA 7A,7A,3F, A5, 7A,3F,F9, AS, 3F, TA, F8, 1E,A5,F8,B5, LE, 9A6C 
295 DATA 2F,7A, A5, 1E,B4,2D,F4, 2D, SA, 1E, 1E,8F,D6, 99,99, 19,9F61 
389 DATA CC, CC, CC, CC, BB, A2, 51, 44, 88, A2,51,44,88, 2,51, 44, ATCE 
395 DATA 88,84, 45,44, CF,E7,DB, CF, 88, A2,51, 44,88, A2,51,44,Bÿ47 
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319 DATA 88,A2,51,44,88, 2,51, 44,88, BA, 45, 44, CF, E7, DB, CF, BBCP 
315 DATA 88,42,51,44,88,A2,51, 44,88, 2,51, 44, CC, CC, CC, CC, C12D 
329 DATA 53,82,81,A3,F3,43,53,F3, 43,43, 53,53,F2,53, A3, F1, C9C7 
325 DATA 53,73, 73,43, 13,13,13,A3,53,13,53,A3,53,F3,F3,A3, DAB7 
334 DATA F3,83,53,F3,F3,03,53,F3,F3,A3, F3,F3,A3,F3, A3,F3,DBD7 
335 DATA A3,53,03,F3,53,93,53,A3,53,F3,F3,A3,81,F3,F3, 02, E3D4 
349 DATA 53,82,91,A3,F3, 43,53, F3, 43,3,53,53, F2,53, A3, F1, ECGE 
345 DATA 53,73, 73,43, 13,13,13,A3,53,B3,F3,A3,53,F3, F3, A3, F49E 
358 DATA F3,93,53,F3,F3,93,53,F3,F3,43,F3,F3, A3,F3, A3, F3, FFBE 
355 DATA A3,93,03,F3,53,07,03,A3,53,A3,53, A3,91,F3,F3, 92, 062F 
369 DATA 69,47,82,40,09,CF,02,08,00,47,03,03,00,47,CF,67,8913 
365 DATA 09,47, CF,67,98,47,CF,67,00,47,47,93,08, 47, 47,02, OD2E 
379 DATA 69,47,83,99,09,47,83,09,99,47,83,08,09,91,C3, 02, 1952 
375 DATA 69,91,C3,92,09,81,C3,02,00,01,C3, 92,00, 01,C3,02, 136A 
389 DATA 9,43,63, 00,00, 43,83,96, 00,17, 28,98, 90, 17, AB,09, 15FA 
385 DATA 69,17, AB,09,09, 17,23,08,81,3F,37,02,01,7F,FF, 02, 18F0 
399 DATA 81,7F,BB,82,01,07,FF,92,91,C3,FF,92,91,C3,FF,02, 1FOÿ 
395 DATA 81,C3,FF,92,91,68,BF, 92,81, 7F,BF, 92,81, 17, 2B, 02, 2498 
499 DATA 23,91,82, 13,23, 12,21, 13,9B,38, 30,67, 47,38, B2, BB, 27C8 
485 DATA 12,53, 3,21, 12,53,A3,21, 12,53, A3, 21, 39, A3, 53,39, 2C91 
418 DATA 21,43,83,12,43,D3,63,83, 83,43, 83,43, 83,43, 83, 43, 329E 
415 DATA 83,03, C3,43,43,C3,C3,83,01,83,03,82,01,F3,F3, 82, 3928 
428 DATA 23,81,92, 13,23, 12,21, 13,98, 39, 38,67, 47,38, B2,8B, 3CEP 
425 DATA 12,12, A3,21,12,93,A3,21, 12,53, A3, 21,38, A3, 53, 30, 4129 
439 DATA 21,43,83,12,43,C3,63,83,83,43, 83,43, 83,43, 83,43, 471D 
435 DATA 83,43, 83, 43,43,C3,C3,83,91,F3,F3, 82,09, 00,09, 60, 4CDE 
449 DATA 89,53,F3,82,81,F3,F3,02,01,F3, A3,93,53,F3,43,43,5375 
445 DATA 53,F3,43,83,53, A3,C3, 83,53, A3,C3, 82,53, 56,03, 82, 5A26 
459 DATA 53,56,56, A9, F3,43, FC, 49, 53,43, 56, 92, 01, AB, A9, 45, BAC 
455 DATA 81,FF, AB,99,01,FF,02,80,01,FF,03,80,01,8F,0F, 82, 647D 
468 DATA 89,53,F3,42,01,F3,F3,92,01,F3,A3,93,53,F3,43,43,6B14 
465 DATA 53,F3,43,83,53, A3,C3, 83,53, A3,C3, 2,53, 56,3, 0, 71C3 
478 DATA 53,56,56,92,53,43, FC, 49, 43,83, FC, 49, 03,56, FC, 92, 78E1 
475 DATA 17,57, AB,09,3F,57,AB,81,1F,43,FF, 97, 87,68, 0F, 0B, 7C08 
489 DATA 69,53,F3,42,01,F3,F3,92,01,F3,A3,93,53,F3, 43, 43, 8327 
485 DATA 53,F3,43,83,53, A3, C3, 83,53, A3,C3, 92,53, 56, 03, 60, 89D6 
499 DATA 53,56,56, 82,53, 43,56, A9, F3, 49,83, A9, 93,FE, 56, 82, 984D 
495 DATA 57,FF,AB,49,FF,AB, 17,83,5F,83,3F, 2F,07,0F, 07,88, 959A 
599 DATA #1,F3,A3,99,81,F3,F3,92,03,53,F3,02,83,83,F3, A3, 9071 
595 DATA 43,83,F3,3,43,C3,53, A3,01,C3,53,3,01,83, A9, A3, A3D3 
518 DATA 56, A9, A9, A3,56, FC, 03,F3, 01,49, 83, A3, 08,56,57,92, AAE5 
515 DATA 99,57,FF,92,00,81,FF,02,00,03,FF,02,01,8F,0F, 82, AEG4 
529 DATA 81,F3,A3,09,81,F3,F3,02,03,53,F3,02,83,83,F3,A3,B5CB 
525 DATA 43,83,F3,A3,43,C3,53,A3,01,C3,53, A3, 09, 83, A9, A3, BD2C 
539 DATA 81,49, A9,43,56, FC, 93,43,56,FC, 43,53,01,FC, A9,43,C4AB 
535 DATA 49,57, AB, 28, 02,57, AB, 3F,8B,FF,03,2F, 87, 0F,07,0B,C87F 
548 DATA B1,F3,A3,40,01,F3,F3,92,03,53,F3,92, 83,83, F3, A3, CFEG 
545 DATA 43,83, F3,A3,43,C3,53,A3,91,C3,53, A3, 09, 03, A9, A3, D747 
559 DATA 1,49, A9,43,56, 49,03, A3,56,43,56,F3, 01, A9, FD, 93, DEGE 
555 DATA 89,57,FF,AB, 93, 28,57,FF, 1F,3F,43,AF,07,0B,9F,0B,E32F 
569 DATA 89, 69,90,89,09,99,00,09,00,08,09,08,00,08,09,08,E32F 
565 DATA 69,06, 00,99,08,80,08,06,00,06,00, 90,00, 00,09,00,E32F 
574 DATA 89,09,80,09,09,09,00,09,00,09,00,08,09,00,0,08,E32F 
575 DATA 60,06,00,99,00,06,08,06,00,98,00, 06,00, 0,09,00,E32F 
584 DATA DD,5E, 89,0, 56,91, DD, 6E, 92, DD, 66,93, 96,98,C5,E5, E9E9 
585 DATA 96,02, 1,77, 23,13, 19,FA,E1,CD, 26, BC, C1, 19,EF, CO, FDB 
598 DATA 11,33,11,33,51,51,51,51,15,15,15,15,55,FF,88,00,F44F 
595 DATA 99,22, 11, 22,08, A2, 08, 2,08, 24,08, 2A,55,FF, 40,09, F798 
689 DATA 11,33,11,11,08,51,99,51,09,2A,15,99,55,FF,08,00,FA2B 
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645 DATA 11,33,11,11,99,51,98,51,09,3F,99,15,55,FF, 99,69, FCDB 
618 DATA 98,11,99,33,89,F3,51,51,15,3F, 98, 15,99,55,98,08,FF72 
615 DATA 11,33,11,98,51,69,00,F3,09,15,15,15,55,FF, 99, 69,029E 
629 DATA 11,33,11,11,51,99,51,F3,15,15,15,15,55,FF,99,98,0641 
625 DATA 11,33,99,11,99,51,98, À2,99,2A, 15, 90,55, 80,99, 00,981D 
634 DATA 11,33,11,11,51,51,51,F3,15,15,15,15,55,FF,99,98,9C11 
635 DATA 11,33,11,11,51,51,51,F3,98,15,99,15,55,FF,99, 99, OFDB 
649 DATA 68,99,00,00,09,09, 09,99, 09, A2, 90,98, 00, 22,08, 08, 199F 
645 DATA 09,99, 09,00,00,00,00,80, 00, À2,09,89,09,22,11,89,1174 
659 DATA 29,99,90,00, 00,09, 09,09, 00,09, 69, 2,00, 22,00,08, 1238 
655 DATA 69,08, 00,06,00,00,00,80,00,09,90, A2, 09,22, 11,099,138D 
669 DATA 99,96,90,08,44,09,09,00, 09,09, 00,09, 08,98, 08,09,1361 
665 DATA 99,98,94,04,44,44,00,44, 08, A2, 09,09, 09, 22,90, 60,1581 
679 DATA 89,96, 99,06, 00,88, 90, 88,98, A2, 99,90,09, 22,00,09,16E5 
675 DATA 84,9C,84,0C,44,44,44,44,51,F3,51,51,11,11,99,99, 1A1D 
689 DATA B4,8C,84,9C, 44,44, 44,44,51,A2,51,51,11,33,98,08, 1D26 
685 DATA 94,9C,94,0C,44,99,44,69,51,06,51, 89, 11,33,00, 09, 1EB4 
699 DATA 94,98,84,9C, 44,44,44,44,51,51,51,51,11,33,98,98, 2168 
695 DATA 94,9C,04,9C, 44,08, 44,09,51,A2,51, 99,11, 33,99, 99, 2398 
789 DATA 84,8C,84,0C, 44,09, 44,09,51,A2,51,99, 11,00, 08,09, 2595 
795 DATA 94,9C,94,9C, 44,44, 44,08,51,89,51,51, 11,33, 99, 99, 27B8 
719 DATS 84,04,84,894,44,44,44,44,51,F3,51,51,11,11,09,99,2AE8 
715 DATA 84,00, 00,98,09,88,09,88, 9, A2, 08, A2, 11,33,99, 00, 2D99 
729 DATA 84, 8C, 89,06, 99,88, 09, 88, 9, A2, 98, A2, 11, 22,98, 89, 382F 
725 DATA 54,64,64,04,44,44,44,88,51,A2,51,51,11,11,99,89,334A 
739 DATA 84,89,04,06, 44,99, 44,09,51,09,51,99, 11,33,98,99,34C8 
135 DATA #4,94,04,0C,44,CC,44,44,51,51,51,51, 11, 11,09,09,37D6 
749 DATA 84,84,84,94,44,CC, 44,CC,51,F3,51,51,11,11,99,98,3C9E 
745 DATA 94,0C,94,94,44,44,44,44,51,51,51,51,11,33,99, 69, 3EBE 
759 DATA 84,8C,84,0C, 44,44, 44,44,51,F3,51,99,11,99,98,99,4194 


755 DATA 84,9C,64,0C,44,44,44,44,51,51,51,51, 11,33, 99,22, 446F 
769 DATA 84,80, 84,9C, 44,44, 44,44,51,42,51,51,11,11,09,98,4755 
765 DATA 94,9C,94,4C,44,98,44,90,51,F3,99,51, 11,33, 09, 00, 49D6 
718 DATA B4,8C,84, 00, 09, 88, 09, 88, 09, A2, 98, A2, 90, 22, 00,80, 4C6C 
775 DATA 94,94,04,04,44,44,44,44,51,51,51,51,11,33,09, 69, 4F14 
789 DATA B4,94,94,94, 44, 44,44,44,51,51,51,51,98,22,90,08,519A 
785 DATA 94,94,04,94,44,44,44,44,51,F3,51,F3, 11,11, 09,09,5564 
799 DATA 84,94,94,94, 44, 44,09, 88,00, A2,51,51,11,11,99,08,57EA 
795 DATA 84,84,94,04,44,44,68,68, 08, A2,09, A2, 89, 22,09, 09, 5A70 
899 DATA 84,80C,90,94, 06,44, 00,88, 99, A2,51,99, 11,33, 00,99, 5C87 
895 DATA 99,99,00,90,00,00,00, 00,09, 00,09, 80,09, 00,90,00,5C87 
819 DATA 7C,C6,88,67,D9,D5,11,58,CD, 19, D1,C9, 88, DD, 5E,98,63EC 
815 DATA DD,56,91,DD,6E, 42,DD,66, 93,86, 19,C5,E5, 86,84, 1A, 6007 
829 DATA AE, 77,13,23,19,F9,E1,CD,99, A9, C1, 19,EE,C9,98,89, 78D1 
825 DATA 89,68,DD,6E,99,DD,66,91,96, 19, AF, 77, CD, 09, AG, 19, 7619 
839 DATA F9,C8,7C,D6,88,67,CB, 74,C9,D5, 11,B9,3F, 19, D1, C9, 7F23 
835 DATA CC,C6,DD,6E, 89, DD,66,91, 22,58, A9,C9, 2, 59, A9, CD, 8796 
849 DATA 42, A9,CD, 42, AG, CD, 42, A8, CD, 42, AG, 22,58, AB, 2A,58,8EB1 
845 DATA AQ,DD,5E, 99, DD, 56,91, CD, 19, A9,C9, 24,58, AG, CD, 99,95C6 
854 DATA A8,CD,89,A9,CD,49, AG, CD, 89, A9, C3,6B, AB, 98, 88,50, 9C7B 
855 DATA DD,5E,89,DD,56,91,DD,6E, 92,DD,66,93,96,18,C5,E5,A33D 
869 DATA 06,94, 1A,99, 77,13,23,10,F9,F1,CD, 99, A8,C1,19,EE, A924 
865 DATA C9,99,89,09,00,09, 00,00,00,09,00,06,09,08, 00,89, A9ED 
879 DATA 99,00,00,00,00,06,09, 68,00, 08,90, 80,00, 80,00, 69, A9ED 
988 CLS:PRINT * FICHIER LANGAGE HACHINE CORRECT..." 
918 PRINT:PRINT:PRINT 

929 PRINT "UNE TOUCHE POUR LA SAUVEGARDE..." 

939 CALL &BB18 

949 SAVE "cirbin",b,49729,49AG 


GESTION BANCAIRE 6128 





LA GESTION DE COMPTE BANCAIRE INDISPENSABLE POUR VOTRE CPC 


Quelques caractéristiques _: 


- Gère jusqu’à 10 comptes (banque, épargne, caisse...). 
- Codes secrets possibles pour chacun des comptes. 
- Saisie des opérations très simple, avec aide en ligne. 


- Fonction archivage, vous permettant de stocker année par année 


vos opérations, 


- Fonction TRIER, pour obtenir des listes d'opérations par dates 


croissantes. 


- À l'aide de POINTER, vous pouvez effectuer la liaison avec votre 


relevé de banque ‘officiel’. 


- NOMBREUSES POSSIBILITES DE SORTIES : 


- Recherche particulière répondant à 1 ou plusieurs critères: 


-DATES DE DEBUT ET DE FIN 


parmi les suivants : 


-MONTANTS MINIMUM ET MAXIMUM 


-UN LIBELLE PARTICULIER 


- Liste de chèques pouvant répondre aux critères suivants: 


-DATES DE DEBUT ET DE FIN 
-NUMEROS DE DEBUT ET DE FIN. 
- Relevé complet -ENTRE DATES 


-AFFICHAGE SOLDE REEL OÙ SOLDE 


OPERATIONS POINTEES. 
.- Sorties sur ECRAN , IMPRIMANTE ou DISQUETTE. 


- UTILITAIRES IMPRIMANTE, ECRAN, COPIE D'ECRAN... 


- UTILISE LES 128 Ko DE VOTRE CPC 6128. 
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PRATIQUE DE 






L'ASSEMBLEUR 


Emmanuel GUILLARD 


Ce mois-ci, nous allons réaliser en assembleur une fonction que 
l’on pourrait tout de suite qualifier d’indispensable. 
Et il est vrai qu’on ne peut passer à côté de ce qui est utilisé dans 
90 % des programmes existant : un éditeur ligne, qui sert à saisir 
du texte, votre nom à la fin d’un jeu, etc. 


Certains ont des possibilités que d'autres n'ont 

pas. Tous, en fait, se complètent. Celui que nous 
allons réaliser cé mois-ci possède les principales fonc- 
tions de tout éditeur ligne qui se respecte : saisie (évi- 
demment, il vaut mieux commencer par là !), dépla- 
cement dans la ligne avec les flèches latérales, fonc- 
tions BACKSPACE, DELETE, INSERTION/RECOUVREMENT, 
et validation par ENTER. 


I ous les éditeurs ne sont pas, hélas, performants. 


LE PRINCIPE 


Supposons que l'on veuille saisir une ligne de 12 ëa- 
ractères. Nous allons commencer par définir, en mé- 
moire, un buffer (= une zone) de 12 octets initialisés à 
0. Supposons que l'on saisisse le mot BONJOUR. Après 
la saisie supposée correcte (c'est-à-dire sans avoir eu 
recours à des fonctions d'effacement, de modification, 
pour les fontes de frappe...) notre buffer devra être 
affecté de la manière suivante : 


Fig. 1 
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que l’on représentera désormais comme suit (ce qui 
correspond à l'affichage écran) : 
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PDEB  : pointeur de début du buffer 

PFIN__ : pointeur de fin du buffer 

PDERN : pointeur sur le dernier caractère de la chaîne 
PCUR  : pointeur de position du curseur 


Par l'intermédiaire de schémas, je vais maintenant 
détailler le fonctionnement de chacune des fonctions 
de l'éditeur : 


+ Appui sur la flèche gauche : le curseur se déplace 
vers la gauche 


Fig. 2 


Avant l'appui (position initiale) : 
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PDEB PDERN PCUR PFIN 


Après un appui : 
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PDEB PDERN  PCUR PFIN 





Après le premier appui, PEUR va se trouver égal à 
PDERN, mais en fait, peu importe. Ce qui est important, 
c'est de comparer PCUR à PDEB afin de ne pas sortir 
de la zone du buffer délimitée par PDEB et PFIN (et par 
la suite, de ne pas faire de saletés à l'écran l). 


| 
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* Appui sur la flèche de droite : 

Cette fois le curseur se déplacera vers la droite, et 
PCUR ne devra pas aller au-delà de PDERN+1, soit 
après le dernier le caractère de la chaîne saisie. 


+ Fonction DELETE (touche CLR) 

Cette fonction efface le caractère situé sous le curseur. 
Supposons que nous ayons saisi la chaîne BONJNOUR. 
ll faut corriger le N frappé par mégarde. 

On a le buffer suivant : 
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ll va falloir appuyer 4 fois sur la flèche gauche pour 
déplacer le curseur sous le "N° : 


Fig. 4 
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PDEB PCUR PDERN PFIN 





Voici maintenant ce qui va se passer lors de l'appui 
sur la touche DELETE : 

1. Recopie de la zone située entre PCUR+1 et PDERN 
dans la zone située entre PCUR et PDERN-1, ce qui va 
“écraser” le N frappé par mégarde : 











Fig. 5 
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on obtient le buffer suivant : il y a un R de trop ! on l'annulera en 
écrivant la valeur 0 à l’adrese PDERN 
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2. llreste alors à décrémenter PDERN et le buffer et ses 
pointeurs associés seront correctement positionnés, 
ceci après avoir effacé le R en trop. 






Fig. 6 
[e[oI]nlslIouIr] I I I I ]} 










t 
PDEB PCUR  PDERN PFIN 


- Fonction BACKSPACE (touche DEL) : 
Cette fonction est quasiment similaire à la fonction 


(LLI11II1IL) 
DELETE. Lors d'un appui sur la touche BACKSPACE, le 


caractère situé à gauche du curseur est effacé, et les £ & fs 8 $ 
caractères de droite sont décalés à gauche. Donc, 
appuyer sur la touche DEL revient à appuyer sur la 64 ÿ É 8 Le 
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flèche gauche, puis sur la touche CLR. Donc, lorsqu'un 
appui sur la touche DEL aura été détecté, on exécur- 
tera dans cet ordre : le module d'appui sur la flèche 
gauche, puis le module d'appui sur la touche CLR. Et 
voilà comment on économise de la mémoire sans se 
fatiguer ! 


+ Mode INS/REC : 

INS/REC signifie INSERTION/RECOUVREMENT, à savoir : 
- En mode INSERTION, les caractères tapés en milieu 
de ligne décaleront les caractères situés à leur droite, 
afin de ne pas les écraser. 

- En mode RECOUVREMENT, les caractères tapés 
écraseront ceux qui étaient précédemment à leur 
place. 


Mode INSERTION : 
ex. : on a tapé BONJUR 


Fig. 7 
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Une fois le curseur positionné correctement, comme 
ci-dessus, on va taper le *O” qui manque : 


1. Décalage des caractères de droite : copie des ca- 
ractères de la zone PCUR à PDERN dans la zone 
PCUR+1 à PDERN+1 (si PCUR < PDERN D). 

















Fig. 8 
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2. Ecriture du © à la position PCUR : 
Fig. 9 
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Mode RECOUVREMENT : 


Dans ce mode, le caractère tapé est simplement écrit 
à la position du curseur, et le pointeur PCUR est incré- 
menté, ainsi que PDERN si on se trouvait en fin de 
chaîne. 


Remarque : 

Ce mode d'insertion/recouvrement n'est pas toujours 
Utilisé. En fait, tout dépend du contexte d'utilisation 
de l'éditeur. Par exemple, pour entrer votre nom dans 
un jeu, ou autre, il ne sera pas forcément nécessaire 
d'avoir recours à l'insertion, le mode recouvrement 
sera amplement suffisant. 


Par contre, dans un éditeur pleine page (style traite- 
ment de texte, etc..), il sera intéressant de passer 
d'un mode à l'autre. 





Le module principal donné en exemple, vous permet 
donc d'utiliser ces deux modes, commutables par la 
touche (COPY). La ligne tapée sera validée par la 
touche (RETURN). Le mode Insertion/Recouvrement, et 
c'est là le défaut majeur qui empêche de l'utiliser 
partout, devra être visualisé. Plusieurs méthodes sont 
possibles, j'ai retenu la suivante : 

sur la première ligne d'écran sera affiché en permar- 
nence le mode, et à chaque appui sur (COPY), le 
sous-programme ira changer l'affichage en première 
ligne. 


Cependant, pour une utilisation plus spécifique de 
l'éditeur, n'utilisant pas les 2 modes, il faudra d'office, 
choisir si l'on préfère l'insertion au recouvrement, et 
initialiser, positionner d'office l'éditeur dans le mode 
choisi, en ne programmant évidemment que le né- 
cessaire. 


LE CURSEUR 


Lorsque vous êtes en BASIC, et que vous saisissez un 
programme, ou autre, vous voyez le curseur se dépla- 
cer (tiens en passant, l'éditeur LOCOMOTIVE est posi- 
tionné en mode INSERTION, vous aviez vu ?) suivant 
votre frappe. 

Par contre, en assembleur, notre éditeur va utiliser la 
routine BBD6, qui attend “bêtement” la frappe d'un 
caractère sans rien faire de plus, et la routine BB5A qui 
affiche, bêtement” aussi, le caractère qu'on lui en- 
voie. 


On va donc avoir à “gérer” le curseur. En fait, “gérer” 
est un bien grand mot car en fait il y aura juste à 
afficher un pavé à la position du curseur qui est en fait 
géré (!) automatiquement par l'ordinateur (respi- 
rez |...). 

Que l'on soit sous l'éditeur BASIC, où à afficher un 
caractère en assembleur avec une routine quelcon- 
que, après l'affichage. le curseur est TOUJOURS dé- 
placé vers la droite, qu'il soit visible (en BASIC) ou non. 


Vous devez donc avoir compris qu'il va nous falloir 
afficher nous-même ce curseur. Soit. La première pen- 
sée qui vient à l'esprit serait d'afficher bêtement un 
caractère ASCII, le n°143, par exemple, à la position 
du curseur. Soit, mais avez-vous pensé au fait que le 
curseur pouvait se trouver en plein milieu de ligne ? 


L’'INVERSION VIDEO 


En BASIC, lorsque c'est le cas, soit que vous déplacez 
votre curseur sur une ligne de texte, le caractère situé 
sous le curseur (qui lorsqu'il ne l'était pas était affiché 
par exemple en blanc sur fond noir) va se trouver 
affiché en noir sur fond blanc. C'est ce que l’on ap- 
pelle l'inversion vidéo. 


Donc, en ce qui nous concerne, nous n'allons pas 
utiliser le caractère n°143, mais bel et bien l'inversion 
vidéo (un bien grand mot !). 

Sa mise en œuvre est très simple : pour afficher un 
caractère en inverse vidéo, il suffit d'activer le mode 


























d'inversion vidéo, d'afficher le caractère en question, 
et de désactiver le mode d'inversion. Bien sûr, on peut 
très bien ne pas le désactiver : tous les caractères 
envoyés à l'écran seront donc affichés en inverse vi- 
déo. 


COMMENT L'ACTIVER 
ET LE DESACTIVER ? 


A question simple, réponse on ne peut plus simple : 
Vous savez que l'AMSTRAD possède un jeu de 256 
caractères, numérotés de 0 à 255. Vous savez aussi 
que seuls les caractères 32 à 255 sont affichables, et 
que les 32 autres (n°0 à 31 !) sont appelés caractères 
de contrôle, et qu'ils permettent des opérations spé- 
ciales et diverses. 

Parmi les fonctions disponibles, on retrouve avec le 
caractère n°24, l'échange des couleurs PAPER et 
PEN” : le noir sur fond blanc devient le blanc sur fond 
noir : c'est ça l'inversion vidéo ! 

Pour l'activer, il suffit d'envoyer à l'écran le caractère 
n°24. 

Par exemple, sous BASIC, faites : 

PRINT CHRS(24), puis ENTER 

et vous voyez le mot READY s'afficher en inverse vidéo, 
ainsi que tout ce que vous taperez ensuite. Justement, 
tapez maintenant quelque chose à l'écran, ce qui 
vous passe par la tête. Maintenant, déplacez le curseur 
à l'intérieur de la ligne. Vous voyez votre caractère 
s'afficher en... inverse vidéo inversée, si je puis me 
permettre l'expression |! 


Vous aurez donc facilement compris que pour désac- 
tiver le mode inversion vidéo, il suffit d'envoyer à nou- 
veau ce'même caractère n°24 à l'écran. 

Tapez donc : PRINT CHRS(24), puis ENTER 

et vous voilà revenu en mode normal. 


Donc, si maintenant vous tapez : 

PRINT CHRS(24): HELLO”: CHRS(24), 

vous devriez voir le mot HELLO en inverse vidéo, et 
votre frappe revenue en mode normal. Pigé ? 


En revenant à notre curseur, pour l'afficher, il faudra 
en fait afficher le caractère correspondant du buffer 
en inverse vidéo, À CONDITION QUE L'ON SE TROUVE 
ENTRE LES POINTEURS PDEB et PDERN INCLUS. Car si 
l'on se trouve en fin de ligne, donc en PDERN+1, le 
contenu du buffer à cet endroit sera la valeur O, qui 
affichée ou non en inverse vidéo n'aura aucun effet 
visuel à l'écran. Il faudra donc, si on lit une valeur nulle 
dans notre buffer, afficher un espace (caractère n°32) 
en inverse vidéo, afin de retrouver le pavé de notre 
bon vieux LOCOMOITIVE | 

Néanmoins, on n'en a pas pour autant terminé avec 
ce damné curseur. Supposons le schéma de la figure 
4, où notre curseur pointe sur le N du mot BONJNOUR. 
Ce N va donc être affiché par la séquence suivante : 
- Afficher (caractère 24) : activation inv. vidéo 

e Afficher "N° : affichage dun 

- Afficher (caractère 24) : désactivation inv. vidéo 


Ici un problème va se poser : notre pointeur de CUR- 
SEUR, PCUR, lui n’a pas bougé. et est toujours situé 





sous le N. Par contre, le pointeur réel de l'écran après 
l'affichage du N s'est déplacé d'un caractère vers la 
droite : 


"N' en inverse vidéo 


BONJNOUR 
PCUR (pointeur curseur écran “réel”, décalé 
géré logiciellement) après l'affichage du "N°! 


Vous voyez que cela risque d'entraîner de sérieux 
problèmes lors d'un futur déplacement de curseur, 
frappe de caractère, ou autre. Heureusement, il existe 
un caractère de contrôle fort utile, le caractère n°8 
qui déplace le curseur écran réel d'un caractère vers 
la gauche, ce qui remettra tout dans l'ordre (tiens en 
passant, retenez aussi le n°9 qui lui nous déplace vers 
la droite !). 

Donc le module curseur se résumera à ces quelques 
actions : 

1. Lire (PCUR) caractère 

2. Si caractère = 0 alors caractère + 32 

3. Ecrire (ECRAN) caractère n°24 

4. Ecrire (ECRAN) caractère 

5. Ecrire (ÉCRAN) caractère n°24 

6. Ecrire (ECRAN) caractère n°8 


C'est tout | Remarquez que c'est très simple : une 
lecture et quatre écritures, pas de modification de 
pointeur ou autre, la simplicité même | 


Nous venons ensemble de réaliser une analyse con- 
ceptuelle d'un problème qui semblait au départ assez 
simple, non ? En fait, l'analyse conceptuelle, c'est tout 
ce qui existe entre l'idée d'un projet et l'écriture des 
algorithmes. C'est le travail, Indispensable (et j'espère 
que cet exemple vous l'aura fait remarquer) sur le 
papier, où l'on envisage tous les cas de problèmes 
possibles pouvant survenir lors d'un traitement, et dont 
on déduit les différentes solutions. Reste maintenant à 
passer aux algorithmes, puis à la programmation, qui, 
si l'analyse que nous avons faite est parfaite, d'une 
part couleront de source, et d'autre part donneront 
un fonctionnement excellent à 100 %, sans qu'on ait à 
se poser de question sur le fonctionnement ou non 
d’un détail quelconque, du fait que tout a été envisa- 
gé lors de l'analyse. Je vous laisse donc cogjiter sur le 
reste : les algorithmes et la programmation, à moins 
que vous ne préféreriez attendre un mois sans vous 
fatiguer pour découvrir la solution du problème posé. 
Néanmoins, Je termine en vous donnant la liste des 
touches utilisées pour l'éditeur, et le code ASCII cor- 
respondant qu'elles renvoient. Bon amusement |= 


Touche Code Fonction 


Déplacement vers la gauche 
Déplacement vers la droite 
Effacement du caractère situé sous le curseur 


Effocement du caractère précédent le curseur 
Commutation mode Insertion/Recouvrement 
Validation et sortie du programme 
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LES OPÉRATEURS 
LOGIQUES AND, 
OR, XOR ET NOT 


G. DUBUS 





Vous êtes débutant et aimeriez 
apprendre quand et comment 
manipuler ces entités mystérieuses ? 
Vous programmez et pensez qu'il 
n'y a rien de plus à tirer des 
opérateurs logiques que ce qu’en dit 
le manuel Amstrad ? Tout le monde 
pourra trouver son profit dans ce qui 
va suivre, car ces opérateurs se 
prêtent à maintes applications, de la 
plus simple à la plus complexe. 
Encore faut-il comprendre l’essence 
même des opérations effectuées. 


APPROCHE INTUITIVE 
ND, OR et NOT signifient respectivement ET, 
A OÙ et NON, ce qui veut dire exactement ce 
que ça a l'air de vouloir dire. Le XOR est un OU 
eXclusif, nous l'examinerons plus loin. 
Dans leurs applications les plus faciles à appréhender 
intuitivement, ces opérateurs sont associés à des tests 
de condition (IF..THEN..ELSE) ou à des boucles fondées 
sur Un test (WHILE.. WEND). Prenons un exemple simple : 
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SI NOUS SOMMES SAMEDI OU DIMANCHE ALORS REPOS 
SINON AU BOULOT 


et traduisons-le en Basic (A) : 


10 IF JOUR$S=»"samedi» OR JOUR$=»dimanche» THEN 
PRINT’REPOS» ELSE PRINT’AU BOULOT }» 


Tapez ensuite en mode direct : JOUR$S=»samedi”:GOTO 
10 et RETURN. Pourquoi GOTO et pas RUN ? Ah que 
voilà une question qu'elle est bonne : parce que RUN 
efface d'abord les variables en mémoire, donc JOURS 
et la valeur qu'on vient de lui affecter. 

Le programme affiche «REPOS», OK. Exemple suivant : 


Si NOUS SOMMES LUNDI ET SI JE SUIS MALADE ALORS 
REPOS SINON AU BOULOT 


Traduit en Basic (B) : 


10 IF JOURS=»Iundi” AND MALADE$=»oui» THEN 
PRINT»REPOS”» ELSE PRINT»AU ROULOT !» 


Tapez maintenant JOUR$=»Iundi»:MALADES$=»"oui»: 
GOTO 10. Réponse REPOS. Essayez 
MALADES$=»non>:GOTO 10. Réponse : AU BOULOT ! 
Passons à autre chose : 


SI NOUS NE SOMMES PAS SAMEDI OÙ DIMANCHE ALORS 
AU BOULOT SINON REPOS 


Essaÿyons de traduire cela en Basic (C) : 


10 IF NOT JOUR$=»samedi» OR NOT JOUR$=»"dimanche» 
THEN PRINT»AU BOULOT |» ELSE PRINTREPOS» 





Tapez JOUR$=»"samedi»:GOTO 10. Réponse : AU BOU- 
LOT Ce n'est pas vraiment ce qu'on attendait. 


Si l'exécution n'est pas correcte, c'est qu'il y a une 
erreur de logique dans l'expression de la condition 
globale. Il aurait fallu poser : 


Si NOUS NE SOMMES PAS (SAMEDI OU DIMANCHE) 
ALORS AU BOULOT SINON REPOS 


Ou bien encore : 


SI NOUS NE SOMMES PAS SAMEDI ET SI NOUS NE SOM- 
MES PAS DIMANCHE ALORS AU BOULOT SINON REPOS 


Ce qui donne respectivement en Basic (D et E) : 


10 IF NOT(JOUR$=»samedi» OR JOUR$="dimanche») 
THEN PRINT»AU BOULOT !» ELSE PRINT’REPOS» 


10 IF NOT JOUR$=»samedi»” AND NOT JOURS$= 
»dimanche» THEN PRINT’AU BOULOT ll» ELSE 
PRINT»REPOS» 


Essayez à nouveau avec JOUR$S=»samedir : cette fois 
c'est correct. 


APPROCHE LOGIQUE 


Comme leur nom l'indique, les opérateurs logiques 
relient deux opérandes (ou arguments) qui sont des 
valeurs logiques : VRAI ou FAUX. Par exemple, lorsque 
nous affectons à JOURS la valeur «samedi», la compa- 
ralson avec JOURS$=»samedi»? retournera la valeur lo- 
gique VRAI. Ce sera la valeur logique FAUX pour la 
comparaison avec JOUR$S=»dimanche»? Globalement, 
les choses se passent bien ainsi, et peu importe pour 
l'instant la manière dont l'interpréteur Basic s'y prend 
pour effectuer les comparaisons, et la nature exacte 
des valeurs logiques VRAI et FAUX. 


Quelques exemples d'expressions logiques, avec leur 
résultat : 


FAUX ET FAUX = FAUX FAUX OÙ FAUX = FAUX 
FAUX ET VRAI = FAUX FAUX OÙ VRAI = VRAI 
VRAI ET FAUX = FAUX VRAI OU FAUX = VRAI 
VRAI ET VRAI = VRAI VRAI OÙ VRAI = VRAI 


NON VRAI = FAUX 
NON FAUX = VRAI 


Tout ceci est évident ? Je suis heureux de vous l'en- 
tendre dire. Alors examinons sous cet angle nos 5 ex- 
pressions logiques précédentes, repérées par les lettres 
AE. 


- Expression À 

Avec JOURS=»samedir, nous obtenons : 

SI VRAI OÙ FAUX ALORS REPOS SINON AU BOULOT 
VRAI OÙ FAUX = VRAI, donc REPOS (la réponse qui suit 
ALORS). 


- Expression B 

Avec JOUR$S=»lundi» et MALADES$=»ouIi», nous avons : 
SI VRAI ET VRAI ALORS REPOS SINON AU BOULOT 
VRAI ET VRAI = VRAI, donc REPOS. 
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Avec MALADES=»non», l'expression devient : 

SI VRAI ET FAUX ALORS REPOS SINON AU BOULOT 

VRAI ET FAUX = FAUX, donc AU BOULOT (la réponse qui 
suit SINON). 


- Expression C 

Avec JOUR$=»samedi», cela donne : 

SI NON VRAI OÙ NON FAUX ALORS AU BOULOT SINON 
REPOS 

Autrement dit : 

SI FAUX OÙ VRAI ALORS AU BOULOT SINON REPOS 
FAUX OÙ VRAI = VRAI, donc réponse : AU BOULOT 
(celle qui suit ALORS). 

Même si ce n'est pas ce que nous voulions obtenir, 
c'est parfaitement logique. C'est simplement l'expres- 
sion qui était mal formulée. 


- Expression D 

Toujours avec JOUR$S=»samedi : 

SI NON(VRAI OÙ FAUX) ALORS AU BOULOT SINON RE- 
POS 

VRAI OÙ FAUX = VRAI et NON(VRAI) = FAUX, donc 
réponse : REPOS. 


- Expression E 

SI NON VRAI ET NON FAUX ALORS AU BOULOT SINON 
REPOS 

SI FAUX ET VRAI ALORS AU BOULOT SINON REPOS 

FAUX ET VRAI = FAUX, donc réponse : REPOS. 


Même s'il s'agit du même signe «=», il ne faut pas 
confondre l'instruction d'affectation (celle qui nous 
permet d'attribuer une valeur à une variable) et 
l'opérateur relationnel d'égalité. Pour mieux vous 
mettre le nez sur le problème, tapez : 


A=5:PRINT A;A=5;A<>5 et RETURN. Réponse : 5 -1 O. 


Je vous expliquerai ce -1 et ce 0 en temps utile. Les 
OPERATEURS RELATIONNELS (=, >, <, >=, <= et <>) font 
toujours partie d'une condition, annoncée générale- 
ment (mais pas obligatoirement) par IF ou WHILE. 
L'ambiguïté du signe «=» est une source regrettable 
de confusion, même si l'interpréteur Basic, lui, ne s'y 
trompe pas. Les autres langages évitent généralement 
ce piège. 


Dans l'évaluation d'une expression conditionnelle, 
l'interpréteur calcule d'abord le résultat logique des 
opérations relationnelles s’il y en a (c'est-à-dire com- 
pare ces expressions avec la valeur courante des va- 
riables concernées), puis effectue sur ces résultats les 
opérations logiques éventuelles, et enfin retourne un 
résultat unique. Si c'est VRAI, ce sont les instructions 
précédées de «alors» (THEN) qui sont exécutées. Dans 
le cas contraire, l'interpréteur exécute ce qui suit «sl- 
non» (ELSE), ou en son absence les instructions de la 
ligne suivante. 


Comme en algèbre, le résultat des expressions entre 
parenthèses est calculé en priorité. Au moindre doute 
sur l'ordre des opérations, usez et abusez des paren- 
thèses. Sans parenthèses, l’ordre de priorité est le sui- 
vant : (=,>,<,>=,<=,<>) > NOT > AND > OR > XOR. 





Je ne vous ai pas encore expliqué le OÙ eXclusif (XOR). 
ll retourne VRAI seulement si les 2 opérandes logiques 
ont des valeurs opposées, en d'autres termes si un seul 
d'entre eux est VRAI : 


FAUX XOR FAUX = FAUX 
FAUX XOR VRAI = VRAI 
VRAI XOR FAUX = VRAI 
VRAI XOR VRAI = FAUX 


Au XIXe siècle, le mathématicien anglais George 
BOOLE eut l'idée de rapprocher les mathématiques et 
la logique. Il formalisa les opérations logiques telles 
que celles expliquées ici, et créa une algèbre, l'algè- 
bre de Boole, permettant de les représenter. C'est 
pourquoi, dans certains langages informatiques, les 
opérateurs logiques sont également appelés opéra- 
teurs booléens, et les valeurs VRAI et FAUX sont dites 
de type booléen (True et False en Pascal, .T. et .F. en 
dBase). 

En algèbre de Boole, aux valeurs logiques VRAI et FAUX 
sont respectivement liées les valeurs numériques 1 et 
0. Ceci permet de représenter les opérations logiques 
sous forme de TABLES DE VERITE , d'un aspect tout à 
fait analogue à nos bonnes vieilles tables de multipli- 
cation. 


On prend un opérande à gauche sur une ligne, l’autre 
en haut sur une colonne, et on lit le résultat de l'opé- 
ration logique à l'intersection de la ligne et de la co- 
lonne. 

L'opérateur NOT ne porte que sur un seul opérande ;: il 
transforme 1 (VRAI) en 0 (FAUX) et vice versa : c'est un 
inverseur logique. 

ATTENTION : les valeurs 1 et 0 ne sont pas des valeurs 
décimales, ce sont des VALEURS BINAIRES. L'algèbre 
de Boole est une algèbre binaire. Avant d'aller plus 
loin, il est nécessaire d'expliquer (ou de réexpliquer ?) 
de quoi il retourne. 


LES NOMBRES BINAIRES 


Le sujet a déjà été traité maintes fois dans cette re- 
vue, dans d'autres contextes. Aussi serai-je le plus bref 
possible. 


Un nombre est représenté au moyen de chiffres : O0 à 9 
en décimal, 0 à 1 en binaire. Quel que soit le système 
employé, chaque chiffre utilisé dans la représentation 
d'un nombre possède un poids, qui est fonction de son 
rang, en partant de la droite. 


Exemple : 123 en décimal représente 1 centaine + 2 
dizaines + 3 unités. 3, premier en partant de la droite, 
possède le poids le plus faible (unités), et 1, au troisiè- 
me rang (celui des centaines), possède le poids le 
plus fort. Par ailleurs, vous conviendrez que : 

123 = (1 * 102) + (2° 10!) + (3 * 10°) 
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Autrement dit, la valeur d'un nombre décimal est la 
somme des produits de chacun des chiffres par son 
poids. Et le poids d'un chiffre, toujours en décimal, 
c'est 10 élevé à la puissance n, n étant le rang du dit 
chiffre dans le nombre, de la droite vers la gauche, en 
comptant à partir de zéro. 

Accrochez vos ceintures et éteignez vos mégots, on 
aborde l'étape suivante. Le système décimal est dit 
en base 10, et le système binaire en base 2 (d'où son 
nom). Oyez : quel que soit le système employé, le 
nombre de chiffres différents possibles est égal à la 
base. Par ailleurs, le poids d’un chiffre dans un nom- 
bre est égal à la base, élevée à une puissance qui est 
le rang du chiffre compte depuis la droite du nombre, 
le premier rang étant zéro. 

Un ordinateur ne sait gérer que le système binaire (2 
chiffres possibles : 1 et 0). Pour lui, si le courant passe 
c'est 1,s'il ne passe pas c'est 0. Simple, non ? Ces 1 et 
ces 0 sont appelés des bits (pas de ricanements au 
fond de la classe, SVP), abréviation de binary digits, ce 
qui signifie chiffres binaires. 

En informatique, les bits sont regroupés par 8, ce qui 
donne un octet. Le CPC est un ordinateur 8 bits, car il 
manipule les données sous forme de nombres binaires 
de 8 bits. Les compatibles PC, Atari, Amiga, etc... sont 
des 16 bits, ils traitent 2 octets à la fois. 


Examinons un octet, donc 8 bits alignés. Le poids du 
bit le plus à droite est égal à la base, soit 2, élevée à la 
puissance du rang, soit O0. Le poids du bit le plus à 
gauche est 2 élevé à la puissance du rang, donc 7 (0 
à 7 font bien 8 rangs, OK ?). Voyons cela de plus près : 


Rang 7 6 5 4 3 2 L 0 
Poids 27 26 25 24 22 21 20 
128 64 32 16 8 4 2 L 


Vous voyez en bas les poids traduits en valeurs déci- 
males. 

Première remarque : chaque poids est égal au précé- 
dent (depuis la droite) multiplié par 2, c'est-à-dire par 
la base. C'est pareil en base 10 (décimal) : le poids du 
rang des milliers est égal au poids du rang des centai- 
nes multiplié par 10. 

Seconde remarque : chaque poids est égal à la som- 
me de tous les précédents (toujours en partant de la 
droite) plus 1. 

Pour calculer la valeur décimale d’un octet, c'est très 
simple : on multiplie chaque bit par son poids, et on 
fait la somme. 

Exemple : 01101110 
(0°128)+(1"64)+(1"32)+(0"16)+(1"8)+(1"4)+(1"2)+(0°1) 
64+32+8+4+2 = 110 

Il ÿY a des raccourcis commodes, dans certains cas 
particuliers : 

00000000 = 0 

11111111 = 128+(128-1) = 255 

00011111 = 16+(16-1) = 31 

Pour les 2 derniers exemples, rappelez-vous la secon- 
de remarque. 


Tout ceci pour vous faire bien comprendre la structure 
des nombres binaires. je ne vous propose pas d‘exer- 
cices de conversion binaire-décimal et décimal-binai- 
re, ça ne présente aucun intérêt car l'Amstrad fait 
cela 1000 fois plus vite que vous. Ce que je vous re- 





commande vivement, par contre, c'est d'appeler la 
fonction BIN$S pour une conversion décimal-binaire, et 
d'examiner avec soin le résultat, chaque fois que vous 
avez à-résoudre un problème où c'est la représentar- 
tion binaire des nombres qui est importante. Et c'est 
- bien le cas avec les opérateurs logiques. 


Quelques définitions utiles avant de passer à la suite. 
On dit qu'un bit est mis lorsqu'il est à 1. Les entiers oc- 
cupent 2 octets, soit 16 bits. Le 16ème bit, c'est-à-dire 
le bit 15,4e-plus à gauche, est le bit de signe : les autres 
sont les bits de données. Si le bit de signe est mis (s’il 
est égal à1), l'entier est négatif : sinon l'entier est posi- 
tif. C'est pourquoi la valeur d'un entier ne peut être 
comprise.qu'entre 32767 et -32768 inclus. 


Une telle représentation des entiers signés est dite re- 
présentation en complément à 2. Pour rendre négatif 
un entier, le système inverse Un par un tous les bits (1 
devient 0, et O0 devient 1 : complément à 1), puis ajour- 
te 1 (complément à 2). 


1 décimal = 00000000 00000001 binaire 
inversion : 11111111 11111110 
+1=1111111111111111 binaire = -1 décimal 


Notezue -1 est représenté en binaire par un nombre 
où-tous les bits sont mis. Nous aurons l'occasion d'y 
revenir. 


BAS LES MASQUES 


Imaginez un nombre binaire écrit sur une feuille de 
papier, et une réglette en carton percée d'une petite 
fenêtre magique. Vous faites glisser la réglette sur le 
nombre, jusqu'à encadrer dans la fenêtre le bit choisi, 
et vous pouvez alors déterminer son état (1 ou 0), 
l'inverser, où le forcer au choix à 1 ou à 0, quel que 
soit son état. C'est ce qu'on appelle un MASQUE et 
c'est exactement ce qu'on peut rédliser avec les 
opérateurs logiques. 


Ils vous donnent en effet accès à des opérations indi- 
viduelles sur les bits, directement à partir du Basic. 
C'est-y pas fabuleux ? 

Précisons tout de suite que les opérations logiques sur 
les nombres ne fonctionnent que sur les entiers, pas sur 
les réels (qui sont représentés sur 5 octets au lieu de 2). 
Examinons quelques exemples (sur un seul octet pour 
plus de simplicité). (Voir figure 1). 


Et sur 2 octets, par exemple avec des nombres néga- 
tifs : 
NOT -1 = 0 NOT 0 = -1 NOT 1 = -2 


12 JT TITI 
0 : 00000000 00000000 


1 : 00000000 00000001 
-2:1111111111111110 


-2 est le complément à 1 de 1 (inversion de chaque 
bit). Notez que, quel que soit l'entier À, NOT A = -(A+1) : 
c'est une autre manière de représenter le complé- 
ment à 1. Si on ajoute 1 à -2, on obtient bien -1 (com- 
plément à 2 de 1), en décimal comme en binaire. 
Toujours quel que soit A, complément à 2 de A = 
complément à 1 de A, plus 1 = -(A+1)+1 = -A, D'ac- 
cord ? Par ailleurs : 


NOT(A XOR -1) = À avec ou sans parenthèses, car 
(NOT A) XOR -1 = A 

En fait, NOT A = À XOR -1, donc NOT(NOT A) = (A XOR - 
1) XOR -1 = A 


Après ce petit hors-d'œuvre, vous avez tous compris 
comment ça tourne. Mais si, mais si. Nous allons main- 
tenant pouvoir passer en revue ce qu'il est possible de 
faire concrètement avec les opérateurs logiques. 


Soit À un entier signe quelconque. À étant représenté 
sur 2 octets, soit 16 bits, appelons N le bit sur lequel 
nous voulons travailler. N peut prendre toute valeur de 
0 à 14 : gardons-nous bien de toucher au bit 15 (le 
léème, c'est-à-dire le bit de signe), sinon gare aux 
résultats aussi étranges qu'inattendus. Comme nous 
l'avons vu précédemment, 2" représente le poids du 
bit N, ou sa valeur s'il est mis. 


99068111 
09091909 


09009009 


69960111 
99091099 


09961111 


99909111 
09991999 


99991111 


69996111 
09099199 


6969109 


09666111 
09600199 


09966111 


0996111 
09900199 


09906011 


8 


8 
XOR 8 


Figure 1 
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99061999 
09061999 


09091999 


09981999 
00901909 


00091909 


09601909 
09991999 


0000090909 


09969111 
09990090 


09099900 


09996111 
09909009 


99969111 


9999111 
9909090 


99999111 








* AOR 2" force le bit N de A à 1, quel que soit son état 
antérieur (1 ou 0). À + 2" ne fait la même chose que si 
le bit N est à O. 


* À AND (-1-2N) force le bit N de A à 0, quel que soit 
son état antérieur (1 ou 0). A - 2" ne fait la même cho- 
se que si le bit N est à 1. 


* À AND 2" = 2" si le bit N est à 1, sinon A AND 2* = 0. 


* A XOR 2" inverse le bit N (et lui seul). Le bit N est for- 
ce à 1 si son état antérieur est O, il est forcé à 0 si son 
état antérieur est 1. 


Soit À une variable entière, initialisée à O (ou pas Initla- 
lisée du tout, ce qui en Basic revient au même). 
L'instruction À = À XOR 1, chaque fois qu'elle est exé- 
cutée, fait passer la valeur de A de 0 à 1, et vice 
versa. Cela peut être commode pour un flag à 2 va- 
leurs, du genre oui/non, vrai/faux. Un flag (drapeau 
en anglais) est un indicateur d'état, une variable pou- 
vant prendre un petit nombre de valeurs bien définies, 
généralement 2 : drapeau levé où drapeau baissé. 
Mais l'intérêt principal de cette instruction est de per- 
mettre, avec une économie maximum de moyens, la 
construction d'une BASCULE. 

Un logiciel ayant 2 modes de fonctionnement utilise 
une bascule (toggle dans les produits d'Outre-Man- 
che) pour passer d'un mode à l'autre, par exemple le 
choix entre joystick et clavier dans un jeu. En fait, une 
vraie bascule permet de changer de mode à tout 
moment, autant de fois qu'on veut : exemple : la 
bascule insertion/recouvrement dans les traitements 
de texte, 


Comment ça marche ? Une touche ou une combinai- 
son de touches particulières, dans le module de scru- 
tation du clavier, appelle le sous-programme conte- 
nant l'instruction À = À XOR 1, puis le sous-programme 
de configuration ad hoc, par exemple par l'instruction : 


ON A+1 GOSUB … 
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En graphisme, XOR a également une application très 
importante : le mode XOR graphique (voir l'article de 
Guy Poll dans Amstar & CPC No 27 de novembre- 
décembre 1988). Ce mode est instauré par PRINT 
CHR$(23); CHR$(1):: TAG pour les caractères ASCII, ou 
en fixant à 1 le 4ème paramètre des instructions gra- 
phiques (sur 6128 seulement). Entre autres effets du 
plus haut intérêt, il permet, dans les animations, d'ef- 
facer un objet en le réaffichant simplement à son em- 
placement courant, et de le faire passer au choix 
devant ou derrière un autre objet. 


LES MYSTERES DE LA LOGIQUE 


Initialisons d'abord 2 variables : JOURSS=»samedir» et 
A%=5. 


1) Expression conditionnelle annoncée par IF ou WHILE 


a) Comparaison explicite d'une expression relation- 
nelle avec la valeur de la où des variables concernées. 


Exemples : 

IF JOUR$="samedi” THEN PRINT»VRAI» ELSE PRINT»FAUX» 
IF A%=5 THEN PRINT>VRAÏ» ELSE PRINT»FAUX» 

La comparaison retourne l’entier -1, c'est-à-dire VRAI. 


Exemples : 

IF JOUR$=»dimanche» 
PRINT»FAUX» 

IF A%=1 THEN PRINT»VRAÏ ELSE PRINT»FAUX» 

La comparaison retourne l'entier O, c'est-à-dire FAUX. 


THEN PRINT»VRAI» ELSE 


VRAI est associé à 1 et FAUX à 0, mais ce 1 et ce O sont 
des bits. L'entier 0 est un nombre binaire dont tous les 
bits sont à 0. L'entler -1 est un nombre binaire dont 
tous les bits sont à 1 : plus vrai que ça tu meurs | C'est 
ainsi que le système (qui ne sait manipuler que des 1 
et des 0, enfonçons le clou...) représente le résultat 
logique d'une expression conditionnelle, en mettant 





tous les bits d'une variable interne à 1 ou à O, selon 
que ce résultat est VRAI ou FAUX. 


Dans une expression conditionnelle complexe com- 
prenant des expressions relationnelles liées par AND, 
OR ou XOR (avec ou sans NOT, avec ou sans paren- 
thèses), ceux-ci effectuent tout simplement des opé- 
rations logiques sur les résultats numériques (-1 où 0) 
des expressions relationnelles. Le résultat final unique 
est soit -1, soit O, ce qui détermine l'orientation du 
programme consécutive au test. 


b) Comparaison implicite (sans opérateur relationnel) 
de chaque bit de la valeur d'une variable ou du ré- 
sultat d'une expression algébrique (Ex. A+B-3) ou logi- 
que (Ex. À AND B), avec 1. 


Exemple : 

IF A%-5 THEN PRINT»VRA/» ELSE PRINT»FAUX» 

- Si le résultat de l'expression est égal à 0 (tous les'bits 
à 0), le résultat de la comparaison est O (FAUX). C'est 
ce que nous obtenons puisque A%=5, 

- Si le résultat de l'expression n'est pas nul (au moins 1 
bit à 1), le résultat de la comparaison est -1 (VRAI). 


Exemple : 

IF NOT A% THEN PRINT>VRAI» ELSE PRINT»FAUX» 

- Si A%=-1, NOT A%=0, donc le résultat de la comparai- 
son est O (FAUX). 

- Pour toute valeur de A% différente de -1, NOT A% est 
différent de 0, donc le résultat est -1 (VRAD). 


Cette instruction n'affichera FAUX que si A%=-1, et VRAI 
dans tous les autres cas. 

Pour un fonctionnement sans bavures de ce genre de 
test, il vaut mieux que A% soit un flag à 2 valeurs 
possibles, -1 ou 0. Initialisé à -1, le flag est «mis», à 
l'endroit ad hoc du programme, par l'instruction 
A%=NOT A% : c'est une autre forme de BASCULE. 


Vous l'avez compris, la comparaison implicite est : 

IF (expression/variable) <> 0 THEN... 

ATTENTION : NE JAMAIS CONFONDRE LE RESULTAT NU- 
MERIQUE DE L'EXPRESSION ET LE RESULTAT DE LA COM- 
PARAISON. 


2) Expression conditionnelle sans IF ni WHILE, mais avec 
opérateur(s) relationnel(s) 


Soit AX=5. PRINT A% affichera 5, OK. Mais nous avons 
vu plus haut que PRINT A%=5 affiche -1, et que PRINT 
A%<>5 affiche 0. Dans ce cas, les règles de la syntaxe 
indiquent à l'interpréteur que le signe «=» n'est pas 
l'opérateur d'affectation, mais Un opérateur relation- 
nel faisant partie d'une expression dont il doit calculer 
le résultat logique, par comparaison avec la valeur de 
la variable contenue dans l'expression. Comme A% 
vaut 5, le résultat est -1 (VRAI) dans le premier cas, et 
c'est bien ce qu'affiche la commande PRINT. Même 
chose pour l'autre exemple, à ceci près qu'il n’y a 
aucune ambiguïté sur la nature de l'opérateur. Ces 
expressions particulières entrent dans la construction 
d'instructions aussi concises que puissantes, exprimées 
sous forme de relations «d'allure algébrique», incluant 
en fait des conditions. Les paramètres en entrée sont 
de type numérique ou chaine de caractères : le résul- 
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tat en sortie est toujours numérique. Quand les utilise-t- 
on ? 


- Lorsqu'il est impossible d'employer IF...THEN où WHILE : 
- dans une formule algébrique, 

- dans une fonction utilisateur. 

- Lorsqu'on recherche la concision dans l'écriture : 
cas des tests multiples (avec plusieurs IF..THEN...ELSE 
en cascade). 


Exemple : fonction utilisateur testant un bit quelconque 
d'une variable entière, directement à partir du Basic. 
En entrée : A est un entier signe, N est le numéro du bit 
à tester (0 à 15). Résultat en sortie : état du bit N (1 ou 
O). 


DEF FNbIt(A,N)=-((A AND 2*)>0) 


Application : A=132:N=7:PRINT FNbit(A,N) —> 1. 
Explication : 2N = 27 = 128 

132 AND 128 = 128 

128 > O0 = VRAI = -1, donc résultat = 1. 

Nota : le signe «-» peut être remplacé par la fonction 
ABS (Valeur absolue). 

Dans cet exemple (et la plupart du temps), attention 
aux parenthèses | Avec les mêmes variables, -(A AND 
2">0) donnera : 

2N > O = VRAI, donc résultat = -1 

A AND -1 = 132 

Résultat = -132 | 

-A AND 2% >0 donnera aussi comme résultat -132. 


APPLICATIONS 


Un programme doit parfois déterminer si Un nombre 
entier, à priori inconnu, est pair où impair. Un nombre 
pair, divisé par 2, fournit un dividende entier, donc 
sans reste. || y a plusieurs solutions : 


Pair Impair 
A/2-INT(A/2) = 0 0.5 
(A/2=INT(A/2))= -] 0 
A MOD 2 = 0 1 
A AND 1 = 0 1 


La dernière instruction est la plus rapide : son principe 
est différent : elle teste simplement le bit O. 


Avant d'envoyer des données à l'imprimante, un pro- 
gramme peut s'assurer qu'elle est prête à les recevoir. 
Par le port &F532 (en hexadécimal), l'imprimante en- 
voie à l'ordinateur un nombre sur 2 octets qui repré- 
sente son état. Le bit 6 de ce nombre correspond à la 
broche BUSY (occupé). Le test est très simple : 


A=INP(&F532):B=A AND 64 (64 = 26) 

B = 64 —> bit 6 à 1 —> OFF LINE (tampon plein, où pas 
de papier) 

B = O —> bit 6 à O —> ON LINE (imprimante prête à 
recevoir les données). 


Le seul point noir au tableau, c'est que le bit 6 est 
aussi à O lorsque l'imprimante est éteinte, et qu'il 
n'existe aucun moyen, pour un programme, de faire 
la différence avec l'état ON LINE. No comment, Mister 
SUGAR ? 





Le LISTING 1 est une sorte de Shoot'em Up. Principe : 
apparition, en un point aléatoire de l'écran (ligne 70), 
d'un «monstre» agité de mouvements imprévisibles : 
en un temps limité, il faut descendre le bestiau en 
déplaçant une mire située initialement au centre de 
l'écran (60). Ce n'est pas PROHIBITION, mais cela 
montre ce qu'on peut faire rien qu'avec du Basic, en 
Utilisant à bon escient les opérations logiques, et quel- 
ques autres astuces. 

En 90, boucle d'attente classique. En 140, boucle prin- 
cipale du programme. 

Le mode XOR graphique (nécessaire à l'animation) 
est instauré en 100 pour l'affichage des caractères 
(monstre = CHR$S(225)) et en 340 pour celui du viseur. 
Sur 464, il faut supprimer le 4ème paramètre de la 
commandé MOVE en 340 et en 420, et ajouter POKE 
&B291,1. 


Déplacements du monstre : horizontal en 210, vertical 
en 220. Affichage en 270, effacement en 200. 
Déplacements du viseur : horizontal en 350, vertical en 
360. Affichage en 420, effacement en 340. Test de la 
touche FIRE en 370 et 430 (retourne 0 ou 16) et de la 
concordance du point visé avec la surface sensible 
de la cible en 480 (on peut réduire cette surface pour 
rendre lé jeu plus difficile). 

Ni le viseur ni le monstre ne peuvent sortir de l'écran 
(380 à 410, et 230 à 260). 

Le principe est très simple. Voyons d'abord l‘interpré- 
tation des actions sur le joystick pour le déplacement 
du viseur. 


La fonction JOY(O) retourne un nombre sur un octet, 
dont les bits représentent les actions exercées sur le 
Joystick 1 : pour le joystick 2, ce sera JOY(T). Seuls les 5 
premiers bits (0 à 4) sont significatifs. 


No du bit 4 3 2 1 0 
Poids 16 8 4 2 1 
Action Fire Droite Gauche Bas Haut 


Toutes les combinaisons sont bien sûr possibles. Exem- 
ple : JOY(0)=26 -> Fire + Droite + Bas. Comment tester 
l'état des différents bits ? C'est très facile et très rapi- 
de avec AND. 

Si nous poussons le joystick à Droite, JOY(0) AND 8 
donne 8, et 8"2=16. La position d'affichage est donc 
décalée de 16 points à droite. Si nous le poussons à 
Gauche, le déplacement est retranché de la position 
courante. Fonctionnement analogue pour Haut et Bas. 
Comme je suis flemmard, j'ai gardé le même principe 
pour les déplacements du monstre. En 180, le système 
tire un nombre m au hasard, entre 1 et 10 inclus. J'ai 
décidé arbitrairement de la correspondance suivan- 
te : 


No du bit 3 2 1 0 
Poids 8 4 2 1 
ACtion Haut Bas Droite Gauche 


Le nombre m est ensuite testé par un AND, comme 
pour JOY(O). I! Y a une valeur de m correspondant à 
un deplacement nul : c'est 3 (Gauche et Droite à la 
fois). 


Plus qu'une démo, le LISTING 2 est un véritable utilitai- 
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re. Il affiche un catalogue déroulant de la disquette, 
pour l'USER de votre choix, et vous offre le lancement 
ou le chargement d'un programme Basic ou Binaire, 
ou l'affichage du contenu d'un fichier ASCII. Bien en- 
tendu, les commandes non appropriées au type de 
fichier sélectionné sont détournées à la source. Si vous 
changez de disquette, tapez «U» puis le No d'User 
pour appeler le nouveau catalogue. 

Le choix du fichier et le choix de la commande se font 
à l'aide des mêmes touches (flèches haut et bas). Les 
touches flèches gauche et droite servent à basculer 
d'un mode à l'autre. 

Au lancement, on est en mode «Choix Commande». 
En 90, on initialise donc bascule à 1 et x à 25 (coor- 
donnée d'affichage du mode actif). Si on change de 
mode (330 et 400-410), bascule prend la valeur 0 et x 
la valeur 10. Si on change à nouveau, bascule = 1 et x 
= 10+15 = 25 (car le test bascule = 1 retourne la valeur 
-1-> VRAN. 


En fonction de la valeur de bascule, flèche haut et 
flèche bas foni défiler la barre de choix, soit sur le 
catalogue (680 à 750), soit sur le menu de comman- 
des (790 à 820). 

La boucle de scrutation du clavier (290 à 340) utilise la 
fonction INKEYO plus rapide que INKEY$S, mais plus 
chatouilleuse aussi : d'où les CLEAR INPUT qu'on trou- 
ve un peu partout. Il faut même parfois ralentir (boucle 
d'attente en 800 et surtout en 400, indispensable). IN- 
KEYO retourne -1 tant que la touche correspondante 
n'est pas pressée, 0 si elle est pressée seule, 32 avec 
SHIFT, 128 avec CONTROL, et 160 avec SHIFT et CON- 
TROL. NOT INKEYO sera donc FAUX si INKEYO retourne - 
1, et VRAI dans tous les autres cas : l'instruction précé- 
dée de THEN sera alors exécutée. 


Dès qu'on appuie sur ENTER ou RETURN (290), on sort 
de la boucle de scrutation, et la ligne 350 est exécur- 
tée. Après exécution de la commande «Afficher ASCII», 
ou après une erreur sur le type de fichier, on retourne 
à la boucle sans fin. La comparaison sous-entendue 
dans l'instruction WHILE sansfin retourne toujours vrai, 
puisque sansfin n'est jamais annulée. Ceci évite un 
GOTO. 

La variable iop (indice option) sert à la fois : 

- à désigner la coordonnée verticale d'affichage de 
l'option courante du menu et son libellé (790), 

- à calculer la nouvelle coordonnée et le nouveau 
libellé après action sur flèche haut ou flèche bas (810- 
820), 

- à déterminer ce que doit faire le programme après 
validation (350 et 880). 

La ligne 860 est destinée à vous éviter des ennuis si le 
programme lancé doit faire des allocations mémoire 
(SYMBOL AFTER ou MEMORY). 

Vous pouvez appeler ce programme «M.BAS» et le 
sauver dans toutes vos disquettes. Il vous suffira de 
taper RUN»M» pour disposer d'une fonction Catalo- 
gue (très) améliorée. Si vos disquettes sont bourrées 
en vrac, pourquoi ne pas répartir les fichiers par fa- 
milles, dans les différents Users ? 


———— #5 





LISTINGT-BAS 
18 "LISTING 1 )LA 
24 >LB 
34 BORDER 1:1NK #,15:1INK 1,:1NK 2,4: INK 3,6:MODE 2 TK 
49 DEFINT a-z:RANDONIZE TIME DYH 


58 ENV 1,5,3,8,39,9,4,5,-3,B:ENV 2,127,5,1:ENT -1,4,-2, >JM 
2,4,2,2:ENT 2,68, -28,2,38, 29,2 

68 h=328:v-=288 >H 
79 hc=CINT(RND#624) :vc=CINT (RND#(399-15) )+15 NT 
68 PRINT"Vous avez 28 secondes pour abattre le monstre, )EJ 
sinon c'est lui qui vous d{truiraBon courage...":PRINT 
PRINT "Appuyez sur FIRE quand vous etes pret" 


98 VHILE (JOY(#) AND 16)=8:WEND:MODE 1 >EC 
188 PRINT CHR$(23) ;CHR# C1) ; : TAG )ZA 
11# GRAPHICS PEN 2:G0SUB 279:G0SUB 428 >FE 
128 EVERY 5.4,8 GOSUB 328 >RZ 
138 AFTER 1899,1 GOSUB 548 >TR 
149 fin=#:WHILE fin=#:GO0SUB 189: VEND : END >KY 
158 ? RG 
169 ” MONSTRE >RH 
179 >RJ 
188 Di:a=INT(RND#18)#1 >RQ 
198 GRAPHICS PEN 2 HR 
289 MOVE hc,vc:PRINT CHR$(225); >20 
218 he=hc+(m AND 2)46-(m AND 1)#16 )R 
229 ve=vct+(m AND 8)+2-(m AND 4)#4 DE 
238 IF hc>624 THEN hc=hc-48 UK 
249 1F hc<# THEN hc=hc+48 )TV 
258 IF ve>399 THEN ve=vc-48 NI 
268 IF ve(15 THEN ve=vc+48 JUU 
278 MOVE hc,vc:PRINT CHR# (225); >2ZY 
288 El :RETURN > AB 
298 >TB 
389 ? JOYSTICK >RD 
319 ? RE 


329 IF JOY(#)=$ THEN FOR i=1 TO 158:NEXT ELSE GOSUB 348 >WK 
338 RETURN >2B 


349 HOVE h,v,3,1:MOVER -16,8:DRAUR 32,8:MOVER -16,16:DR KJ 
AUR 9, -32 


358 h=h+(30Y(#) AND 8)#2-(J0Y(9) AND 4)#4 )FT 
368 v=v-(JOY(#) AND 2)#6+(J0Y(#) AND 1)#12 >6G 
379 f=(J0Y(#) AND 16) NA 
388 IF h>631 THEN h=631 YL 
399 IF h<8 THEN h=8 JNJ 
498 IF v>391 THEN v=391 > 
419 1F v<8 THEN v=8 KG 


428 MOVE h,v,3:MOVER -16,8:DRAVR 32,8:MOVER -16,16:DRAW >GD 
R ÿ,-32 
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439 1F f THEN MOVE h-6,v+6:GRAPHICS PEN 1:PRINT CHR$(42 DXN 
);:SOUND 1,3588,18,15,,,18:G0SUB 48# 


448 RETURN >2D 
45$ ’ >RK 
468 ? GAGE ? )TA 
as >TB 


489 1F NOT(h)hc+2 AND hChc+14 AND v<ve-2 AND vovc-14) T DJY 
HEN RETURN 

499 z=RENAIN(1):DI :SOUND 129,8:FO0R i=1 TO 188:NEXT:SOUN UN 
D 2,2898,8,8,1,2:SOUND 1,16,9,9,2,1 

589 GOSUB 568:PAPER 3:1NK 3,6,16:CLS:PRINT"BRAVO. 11 vo >ZP 
us restait" ;ROUND(z/58, 1) ; "secondes" :CLEAR INPUT :PAPER 
#:fin=1:RETURN 


518 RG 
528 " PERDU ! RH 
539 ? RJ 


548 DI:SOUND 129,8:FOR i=1 TO 4:SOUND 1,199,28,15:SOUND >YP 
1,134,28,15:SOUND 1,181,48,15:FOR j=1 TO 188:NEXT j,i 

558 GOSUB 564:PAPER 1:PEN 3:CLS:PRINT"TROP TARD, LE MON >QW 

STRE VOUS A EU !":CLEAR INPUT:PAPER #:PEN 1:fin=1:RETUR 

N 


569 TAGOFF:PRINT CHR$(23) ; CHR$ (8) ; : RETURN )LBe 
LISTING2 -BAS 
18 ’ LISTING 2 DLA 
28 )LB 
38  Initialisation LC 
ag! )LD 
58 OPENOUT"bidon" :MEMORY L8E78 : CLOSEOUT >HH 
68 FOR a=&68E71 T0 &GE7A:READ a$:k=VAL("&"+a$):POKE a,k: >DP 
NEXT 
78 DATA DD,5E,88,DD,56,81,CD,9B,BC, C9 >DP 
89 DEFINT a-z >PE 
98 DIM fic$(64),choix$(1):user=#:bascule=1:x=25:sansfin )PB 
=1:iop=1 
189 tit$="SMARTCAT (C) G. DUBUS & CPC Infos" > 


118 choix$(#)="Choix Fichier “:choix$(1)="Choix Comsand 
e":mesi$=CHRS(242)+" ou "+CHRS(243)+" : "ichoix$(#)+"/" 
+choix#(1):mes2$=CHR$(248)+" ou "+CHR$(241)+" : S{lecti 
on":me53$="ENTER ou RETURN : Validation":nes4$="U : D{f 
inir USER courant" 

129 ses5$=" Appuyez sur COPY pour abandonner" :nes6t-= 
“Appuyez sur une touche pour la suite...":mes7$=" Retou 
r au MENU : une touche quelconque" 


HC 


)TT 


138 1$(1)="LOAD ":1$(2)="RUN ":18(3) DUC 
="Afficher ASCII" 

149 MODE 1:BORDER 15:INK 9,15: INK 1,9:INK 2,4:INK 3,2 DVI 
158 VINDOVE1, 2, 18,8, 17:PAPERH, S:PENE1, 1 DHT 
169 VINDOWE2, 24, 39,6, 12:PAPERA2, :PEN2, 3 »J4 
178 WINDOWE3, 2, 39, 2, 21:PAPER#3, B:PENE3, 1 HT 
186 >Rk 





198 * Progranne principal 

298 

218 WHILE sansfin 

229 GRAPHICS PEN 3:gx1=32:gx2=598:gy1=399:gy2=353:GOSUB >PK 
649:gxi=gxit6:gy1=gy1-6:gx2=gx2-6:gy2=gy2t6:GOSUB 649: 

LOCATE 4,2:PEN 2:PRINT tits; 

238 GRAPHICS PEN 2:gxi=4:gx2=299:gy1=331:gy2=84:G0SUB 6 FR 

4f:gxi=gxl+6:gx2=gx2-6:gy1=gy1-6:gy2=298:GOSUB 648: gy1= 
292:gy2=122:G0SUB 648:gy1=116:gy2=99:GOSUB 648 

249 LOCATE 1,22:PRINT nes1$:LOCATE 1,23:PRINT mes2$:LOC >GY 
ATE 1,24:PRINT mes3$:LOCATE 1,25:PRINT mes4$;:GOSUB 488 

258 GRAPHICS PEN 2:gx1=352:gx2=638: gy1=334: gy2=192:G0SU >LF 
B 649:gx1=gxi+6:gx2=gx2-6:gy1=gy1-6:gy2=gy2+6:GOSUB 648 

269 FOR i=1 TO 3:LOCATEN2,2,2+(i-1)42 )CG 
278 PRINT#2,1$(i);:NEXT:GOSUB 898 >CC 
289 GOSUB 458:PAPER#1, 3:GOSUB 728:PAPER#1, 8 JHN 
298 WHILE INKEY(6)=-1 AND INKEY(18)=-1:CLEAR INPUT NE 
389 1F NOT INKEY(2) THEN ON bascule+1 GOSUB 688,829 )TG 
318 IF NOT INKEY(#) THEN ON bascule+1 GOSUB 789,819 TI 
329 ]F NOT INKEY(42) THEN GOSUB 738 )BB 
338 IF NOT INKEY(1) OR NOT INKEY(8) THEN GOSUB 488 >RU 
349 VEND >CF 
358 file$=LEFT$(fic$(ific),12):CLEAR INPUT:0N iop GOSUB >QE 


868, 669, 899 
369 WEND:END )HC 
378 >TA 
389 ” Bascule )TB 
398 >TC 


498 GOSUB 418:PEN 3:bascule=bascule XOR 1:1:=19-15#(basc DUW 
ule=1):GOSUB 419:PEN 2:FOR i=$ TO S#S:NEXT:CLEAR INPUT: 
RETURN 


418 LOCATE x,22:PRINT choix$ (bascule) : :RETURN >RK 
428 >RG 
439 ” Affichage catalogue >RH 


448 ? »RJ 
459 CLS#1:LOCATE 6,6:PEN 1:PRINT USING"USER ##";user;  )ZB 
468 :USER, user :GOSUB 518:LOCATE 4,19:PRINT USING"## Fic >2ZP 
hier(s)";nfic;s 

419 FOR i=1 TO MIN(I8,nfic):PRINT#, fic$(i);:NEXT:ibar= )FU 
1tific=1:PEN 2:RETURN 


489 ’ )TC 
498 * Appel catalogue >TD 
589 ? >RF 
518 ERASE fic$:DIM fic$(64) NV 
528 CALL &BB57:CALL &8E71,4BE7B:CALL 4BB54 )JA 
538 nfic-#:FOR i=&6E7B TO &967B STEP 14 >ED 
549 IF PEEK(i)C3255 THEN 688 VB 


558 nfic=nficti:fict="":FOR j=1 TO 8:fict$=fic$+CHR$S(PEE TU 
K(i+j)):NEXT j 

569 fict=fict+"." )LQ 
578 FOR k=8 TO 2:fic$=fic$+CHR$(PEEK(i+j+k) AND 127):NE CL 
XTk 


589 fic$=fict+" "+DECS(PEEK(i+12),"##")+"K" )JD 
598 fic$(nfic)=fic$ NI 
688 NEXT i NE 
618 >RH 
628 ’ Trac{ fenetres )RJ 
638 DRK 


649 PLOT gxi,gy1:DRAU gx2,gy1:DRAN gx2,gy2:DRAN gxi, gy2 DFJ 


:DRAW gx, gy1: RETURN 


659 )TB 
668 * D{filenent catalogue >TC 
679 ? TD 


688 IF ific<nfic THEN IF ibar<18 THEN GOSUB 729:ibar=ib >UL 
arti:ific=ificti:PAPER#1,3:GOSUB 728:PAPER#1,9 ELSE ifi 
c=ific+i:PRINTH, CHR$ (38); :FOR i=ific-9 TO ific-1:PRINT 
#i,fic$(i);:NEXT:PAPER#1,3:GOSUB 728:PAPER#1,9 

698 RETURN )AA 
789 IF ific>1 THEN IF ibar>i THEN GOSUB 728:ibar=ibar-1 >HD 
tific=ific-1:PAPER#,3:GOSUB 728:PAPER#1,# ELSE ific=if 
ic-1:PAPER#1,3:GOSUB 728:PAPER#1,8::FOR i=ific+i TO HIN 
Gific+9,nfic):PRINTH,fic$(i);:NEXT 

719 RETURN )2D 
728 LOCATE#1, 1, ibar:PRINT#1, fic$(ific) ; :RETURN >TY 
739 CLEAR INPUT:LOCATE 22,289:PAPER 2:PEN 8:INPUT'USER * DAK 
suser:PAPER S:PEN 1:LOCATE 22,28:PRINT SPACES(18) ; 

748 GOSUB 458:1F nfic># THEN PAPER#1,3:GOSUB 729:PAPER# >DP 


1,8 

759 RETURN )ZH 
768 >TD 
7179 * Fonctionnesent senu )TE 
788 >TF 


799 LOCATE#2,2,2+(iop-1)42:PRINTH2, 1$(iop) ; :RETURN )WA 
888 PAPER#2,2:PEN#2, 1:GOSUB 798:PAPER#2, S:PEN#2,3:FOR i >XD 
=8 TO 298:NEXT:CLEAR INPUT:RETURN 


818 GOSUB 798:iop=iop-3*(iop=1)-1:GOSUB 8#8:RETURN JW 
829 GOSUB 798:iop=ioptiopt(iop=3)+1:G0SUB BBS:RETURN  )ZA 
838 >TB 
849 * Ex{cution commande )TC 
658 ’ »TD 


869 MEMORY PEEK(&B736)+256#PEEK(&B737)-1:SYMBOL AFTER 2 >CN 
56 

879 * Pour le 464 : MEMORY PEEK(&B296)+256#PEEK(&B297)- )TF 
1:SYMBOL AFTER 256 

889 1F RIGHT$(files,3)="BAS" OR RIGHT$(files,3)="BIN" T >RD 
HEN ON iop GOSUB 1919,1928 ELSE GOSUB 193#:RETURN 

899 IF files="" OR RIGHT#(files,3)="BAS" OR RIGHTS (file DTE 
$,3)="BIN" THEN GOSUB 1938:RETURN 

988 CLS:GRAPHICS PEN 3:gx1=8: gx2=639: gy1=399: gy2=48:G0S DHY 
UB 648:gx1=gxlt6:gx2=gx2-6:gy1=gy1-6:gy2=gy2+6:GOSUB 64 
S:PEN 3:LOCATE 29-LEN(file$)/2,1:PRINT file$:PEN 2 


918 CLEAR INPUT:OPENIN files YY 
929 LOCATE 1,23:PRINT nes5$; :CLS#3:bouclez=1 )NL 
938$ WHILE boucle >LF 
949 LINE INPUT#9,a$ NY 
958 LOCATE 1,25:PRINT SPACES (39); BY 


969 111=(28-VPOS(#3)):11=-(LEN(a$)(38)-(LEN(a$))38)#CIN >LH 
T(LEN(a$)/38):1F 11138 AND 111>=11 THEN PRINT#3,a$ ELSE 
LOCATE 1,25:PRINT nes6$; :CALL &BB96:CLS#3:PRINT43, at 

978 IF EOF THEN LOCATE 1,25:PRINT mes7$; :CALL &BB#6:bou >GG 

cle=ÿ 


988 IF NOT INKEY(9) THEN boucle=f )BR 
999 WEND:CLOSEIN KL 
1898 CLS:RETURN LD 
1818 LOAD file$:RETURN >RP 
1828 RUN file#:RETURN >R4 


1938 LOCATE 1,25:PEN 3:PRINT"ERREUR DE FICHIER Appuyez )BZ 
sur une touche"; :CALL &BB#6:PEN 2:CLS:RETURN = 
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BON DE COMMANDE F La taie de Pan35170 BRUZ 


Pour chaque article, entourez le ou les n° choisis. 

ANCIENS Nos AMSTAR & CPC 

N°26-—27 28-29-30 — 31 - 32-33-34 25 F {unité] Franco 
35-36-3839 40-41-42 43-44-45-46-47 26 F {unité) Franco 


DISQUETTES AMSTAR & CPC 
N°20-21-22-23-24-—25-26 — 27 - 28-29-30 Abonné 110 F (unité) Franco 
{une disquette réunit 2 numéros consécutifs d'Amstar & CPC) Non abonné 140 F {unité) Franco 


ANCIEN No CPC Infos 

N°25—26— 27 -28—29 26 F [unité] Franco 
Franco 

DISQUETTES CPC Infos Abonné : Franco 

— MEGA SOUND 110 F (unité) Franco 

— N° 31 (An Star 48 & CPC Infos 24) — N° 32 (CPC Infos 25 & 26) Non abonné : 

— N° 33 (CPC Infos 27 & 28) — N° 34 (CPC Infos 29 & 30) 140 F {unité) 


ANCIENS Nos CPC L 
N° 1113-16-18 — 23 — 24-25 — 96 25 F {unité) Franco 
27-28 — 29 — 30 — 31 — 32 — 33— 34 36— 37 Franco 
ANCIENS Nos HORS-SERIE CPC Ve 
N°4-7-8-9-10- 12-13-14-15-16 21F (unité) Franco 
N°17—18—19- 20-21-22. 23 23 F (unité) Franco 


DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC . 
N°1-2-3-4-5-6-7-8-9-10-—11-12-13-14-15—16-17—18-—19 Abonné : 

{une disquette réunit 2 numéros consécutifs de CPC) 110F (unité) Franco 
HS1— HS2 — H53 — HS4 — HS5 — HS6 — HS7 — HSB — HS9 — HS10 — HS11 Non abonné : 

HS12—HS13 — H514— HS15 — HS16 —HS17 — HS18— H519 — HS20 — HS21 -- HS22 -- H523 140 F (unité) Franco 


ABONNEMENT 6 DISQUETTES {non rétroactif) 600 F France 


DISQUETTES “ARCADES” Téléchargement AMSTRAD CPC 60F 5F 
CABLE pour téléchargement 5F 
[Téléchargement non compatible avec 6128+ et 464+) 


LOGICIELS EDUCATIFS - LIVRES - DIVERS 


Forfait port + 10 F par logiciel et 10 % pour livres 


Q Facultatif : recommandé + 10 F par commande 
prendre contact avec le service commercial MONTANT GLOBAL 


Je joins mon règlement :  Q chèque bancaire  Q chèque postal  Q mandat CPC Infos 30 


e= PAYEZ PAR CARTE BANCAIRE Nom : 
NÉSMRES ANSE SSSR I re 
Date d'expiration Signature 


{inscrire les numéros de la carte, la date et signer] Code Postal : ______________ Ville: 
ECRIRE EN MAJUSCULES 


Date et signature Signature Afin de faciliter le traitement des commandes, nous remercions notre aimable clien- 


tèle de ne pas agrafer les chèques, et de ne rien inscrire au dos. 





Commande : La commande doit comporter tous les renseignements demandés sur le bon de commande (désignation ou référence si celle-ci existe). Toute absence de précisions est sous la responsabilité de l'acheteur. La vente est 
condue dès acceptation du bon de commande par notre société, sur les articles disponibles uniquement. 

Les prix : Les prix indiqués sont valables du jour de la parution du catalogue jusqu'au mois suivant ou au jour de parution du nouveau catalogue, sauf erreur dans le libellé de nos tarifs au moment de la fabrication du catalogue, et de 
variation de prix importante des fournisseurs. 

Livraison : La livraison intervient après le règlement Les délais de livraison étant de 10 à 15 jours environ, SORACOM ne pourra ètre tenue pour responsable des retards dus aux ransporieurs ou aux grèves des services postaux. 
Transport : La marchandise voyage aux risques et péris du destinataire. La livraison se faisant par cols postal ou par transporteur. Les prix indiqués sur le bon de commande sont valables sur toute la France métropolitaine, + 20 F par 
article pour Outre-Mer par avion et au-dessus de 5 kg nous nous réservons la possibilité d'ajuster le prix de ransport enfonction du coût réel de celui-ci. Pour bénéficier de recours possible nous invitons notre aimable clientèle à opter pour 
l'envoi en recommandé. À récepiion des paquets, loute détérioration doit être signalée Réclamation : Toute réclamation doit intervenir dans les dix jours suivants la réception des marchandises. 











VARIABLES LOCALES 
ET RECURSIVITE 


Yannick GOUR 


Valable pour CPC 464 - 664 - 6128 





Cet article fait suite à celui paru 
dans CPC Infos de Janvier. 

Il propose deux exemples 
d'utilisation de variables locales et 
de récursivité, programmes à 
l'appui. 


Avant de commencer, et en toute généralité, si la 
récursion peut être gourmande en mémoire, et si elle 
n'est pas plus rapide que d'autres méthodes, toute- 
fois elle permet d'écrire des algorithmes relativement 
compacts et de compréhension aisée. Que ceux qui 
n'en sont pas convaincus réécrivent les programmes 
présentés sans. Bon courage | 


QUICKSORT 
n conclusion de l'article précédent était évo- 
E qué le tri rapide “Quicksort”. C'est un procédé 
de tri dû à un monsieur C.AR. Hoare et inventé 
en 1962. On se demande pourquoi il a fallu attendre 
tout ce temps pour un truc simple comme bonjour 
(quoique parfois.), enfin ce doit être le premier Hom- 
me à en avoir donné l'algorithme à des fins informati- 
ques. C'est vraiment très simple : 
- Supposons que le critère de tri soit du genre ‘infé- 
rieur” où “supérieur ou égal”. On s'y ramène toujours 
de toutes manières. 
1) On met devant soi le tas d'éléments à trier. 
2) On pioche un élément. 
8) On met à gauche les éléments inférieurs et à droite 
les éléments supérieurs. 
4) On applique ce procédé à chacun des tas ainsi 
constitués en s’arrêtant naturellement pour un tas lors- 
qu'il ne contient plus qu'un seul élément ou zéro (mais 
si, mais si !). 
Programmé, voici ce que cela donne (une possibilité 
parmi tant d'autres) : 
- On indique les bornes de gauche et droite dans le 
tableau à trier. 
- On choisit comme élément de partage celui du mi- 
lieu, que l'on échange avec l'élément de gauche 
(point 2). 
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(suite) 


- On examine la partie du tableau à trier de droite à 
gauche. Si un élément est supérieur ou égal à celui de 
partage, on le laisse en place, sinon on le place sur la 
gauche du tas à trier, en l'échangeant avec l'élément 
à l'extrême gauche de ce tas. Il y a là un index utilisé 
pour connaître l'avancement du tas d'‘inférieurs”. 
Dans ce cas on poursuit l'examen à partir de l'élément 
échangé. 

- Le tri fini, on rééchange l'élément frontière entre les 
deux tas de gauche) avec l'élément de partage, 
qu'on avait placé à gauche (point 3). 

- On trie le tas de gauche et le tas de droite de la 
même manière (point 4). 

Plus un tas est déjà trié, plus on risque d'atteindre vite 
la limite de la pile BASIC (80 niveaux environ). Pour 
éviter cela, il suffit de mettre du désordre dans le ta- 
bleau à trier (qui l'eût cru ?). Par exemple avec une 
boucle du genre : 

FOR i=1 to n STEP 2 

j=1+INT(RND*n) 

ÜGIVE.5,àa(i) 5àa():ÜGET.5,àa().5.àa(i) 

NEXT 

Deux programmes sont proposés, qui sont très sembla- 
bles. L'un trie des nombres (QUICK-R) et l'autre des 
chaînes (QUICK-S). Les explications précédentes et les 
commentaires inclus dans les listings doivent permettre 
leur compréhension sans trop de problèmes. A noter 
l'usage du couple ÜGIVE, ÜGET pour l'échange de 
variables. Pour échanger deux variables, c'est plus 
élégant qu'économique (en temps), mais au-delà on 
gagne très vite beaucoup de temps. Ainsi est réalisé 
dans QUICK-R un rapide transfert de valeurs d'un ta- 
bleau quelconque au tableau spécifique de la routi- 
ne de tri. 


TRI BINAIRE 
ncore un procédé de tri. Mais autant ne pas voir 
É deux fois la même chose. Revenons sur le Quick- 
sort, ou “rapide tri” en anglais. On l’applique à 
un ensemble d'éléments, dont on dispose déjà avant 
de commencer à trier. Seulement blen souvent on a 
un paquet d'éléments à insérer dans un tas préexis- 
tant. Il faut donc faire de l'insertion au coup par coup. 
Structurer les éléments en un “arbre binaire” est une 
manière très pratique de réaliser ceci. 
L'arbre binaire : "Dessine-moil un arbre binaire”. "C'est 


très simple, petit Prince. Prends un crayon et une feuille 








de papier. Dessine en haut un point, puis deux bran- 
ches en partant. Et fais de même pour chaque point”. 
Voilà le principe d'un arbre binaire, de manière ima- 
gée. Plus concrètement, les points sont appelés 
“nœuds”. Les 2 nœuds reliés à un même nœud sont 
appelés nœuds "fils". On parle de nœud fils gauche 
ou droite selon leur classement (voir plus loi). Un nœud 
peut n'avoir qu'un fils ou aucun. Un nœud est privilégié 
par rapport aux autres : c'est le premier, celui par 
lequel on “entre” dans l'arbre. On l'appelle “racine”. 
Un nœud est une entité complexe. A tout élément trié 
correspond un nœud. Un nœud est ainsi constitué : 

- pointeur sur l'élément : 

- compteur d'occurrences de l'élément ; 

- pointeur sur le fils gauche : 

- pointeur sur le fils droit. 

Qu'est-ce qu'un pointeur ? C'est tout bêtement une 
adresse. Cela indique à quel endroit chercher ou 
mettre de l'information. Ici par exemple le “pointeur 
de l'élément” est le numéro de l'élément dans le ta- 
bleau des éléments ("mottab” ou “xtab” dans les pro- 
grammes). Les pointeurs sur les fils sont simplement les 
numéros des nœudfs fils dans le tableau des nœuds. 
Comiment classe-t-on dans un arbre (si vous ne l'avez 
déjà deviné) ? Enfantin ! On se ramène avec l'élément 
à insérer à la racine. De là c'est toujours le même 
processus : 

1) Si le nœud est vide, c'est-à-dire ne pointe sur aucun 
élément, alors on lui attribue le nouvel élément et on 
met.le compteur d'occurrences à 1. C'est fini ici. 

2) Si l'élément est égal à celui du nœud, alors on 
‘Incrémente le compteur d'occurrences et c'est fini ici. 
8) Si l'élément est inférieur à celui du nœud, alors on 
se déplace au fils de gauche et on reprend en 1). 

4) Sinon c'est qu'il est supérieur et alors on se déplace 
au fils droit. On reprend en 1). 

L'insertion se fait donc très simplement. On obtient en 
fin de compte un arbre avec l'élément le plus petit le 
plus à gauche (on prend toujours à gauche mais là on 
ne tourne pas en rond) et le plus grand le plus à droite. 
Mais comment débrouiller le méli-mélo entre les deux ? 
L'enfance de l'art, grâce encore une fois à la récursi- 
vité. On considère la procédure ‘afficher nœud”. Voi- 
là comment elle se décompose : 

1) Si nœud vide, alors retour de procédure. 

2) ‘afficher fils de gauche”. 

3) Faire apparaître à l'écran ce qui nous intéresse sur 
le nœud. Souvent Il s'agit de l'élément pointé et de 
son nombre d'occurrences. 

4) ‘afficher fils de droite”. 

5) Retour de procédure. 

Cela semble magique, mais pour parodier une célè- 
bre citation : “et pourtant ça marche”. On voit défiler 
à l'écran en un temps record tous les éléments triés. 
Comme pour Quicksort, des éléments arrivant déjà 
ordonnés conduisent à un déséquilibre de l'arbre et 
on a vite fait d'arriver à une saturation de la pile BASIC. 
Pour des éléments venant au hasard par contre, on a 
beaucoup plus de chances d'aboutir d’abord à un 
manque de place pour les tableaux de données. 
Encore une fois les deux programmes proposés sont 
très proches : l’un trie des réels (SHELL-R) et l’autre des 
chaînes numériques (SHELL-S). Dans ce dernier cas un 
fichier ASCII préexistant est lu. Comme souvent il s’agit 
d’un fichier de texte, on lit des lignes entières à chaque 
INPUT”. Aussi chaque ligne” est-elle retravaillée pour 
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supprimer les espaces superfius et en extraire ensuite 
aisément le contenu. On peut plus facilement taper 
une série de mots lus par un INPUT, que l'on envoie à 
chaque fois pour insertion dans l'arbre (c'est toute 
l'utilité de la chose ! Et cela va très vite, c'est du 
temps réel). En sauvegardant en même temps les mots 
d'un fichier, on peut faire ultérieurement l'économie 
d'une nouvelle entrée de données. Si on veut épater 
la galerie, on peut même en rajouter soi-même, soit 
par programme, soit carrément "à la main”, en "Gl- 
Vant” la racine et en appelant la procédure d'inser- 
tion. 

Au possesseur de 464 : la fonction DECS est buggée 
sur le 464, mais on peut l'utiliser en ouvrant 2 paren- 
thèses et en n'en fermant qu'une : *"DECS$((...)”. Elle 
est utillsée dans l'affichage de l'arbre. 


CONCLUSION 


Maintenant il n’y a plus qu'à espérer que 
quelque lecteur soit inspiré et nous offre bientôt 
dans ces colonnes un programme dans ce bon 
vieux BASIC du CPC (gonflé des RSX que vous 
savez), qu'on n'aurait pas pu écrire sans la 
récursion (ou pas sans ENORMES difficultés). Je 
souhaite y avoir donné goût (je trouve très 
agréable le côté nalurel des algorithmes et les 
deux exemples traités doivent le mettre en 
valeur, sinon tant pis. y'a plus rien à faire). 


NOTE : Pour utiliser les programmes ci-dessous, il faut 
bien sûr avoir initialisé les RSX auparavant. Reportez- 
vous au numéro 28 de CPC Infos pour cela. 


RECTIFICATIF 


Dans le numéro 28 de CPC Infos, le texte de l’article 
“Variables locales et récursivité” a été tronqué, voici 
ce qu’il fallait lire : 


LECTURE DES ARGUMENTS D’ENTREE 
Commande : IGET, typ, @var, typ2, @var2... 

Idem qu'avant. Il doit y avoir identité entre les types des 
arguments transmis en entrée et ces derniers. Même si le 
type d’une variable n’est indiqué que par “typ”, il faut 
aussi que les variables concernées soient de même type 
pour que la transmission et la lecture de l'argument aient 
un sens. 


INDICATION ET LECTURE 
DES ARGUMENTS DE SORTIE 


Celui qui a bien suivi aura compris que cela se fait res- 
pectivement avec les commandes IGIVE et IGET. 


RESTAURATION 


DES VARIABLES LOCALES 

Commande : IENDLOCAL, typ, @var, typ2, @var2.… 

Il s’agit de l'injection dans les variables locales de leurs 
valeurs avant appel de la procédure. La liste des argu- 
ments doit être identique à celle de la commande ILO- 
CAL. Aussi le plus simple est de recopier grâce à la 
touche COPY cette liste. 





QUICK-R 


199 MODE 2::STACK, 87009, & 1089 

119 DEFINT b-s:DEFREAL a,t,x:n=198:DIH a(n),tri(n):b=b: 
d=d'g=gif=f 

128 

139 "remplissage d'un tableau de nonbres au hasard 
149 FOR i:1 TO n:a(i)=RND#n:NEXT 

158 

169 ‘transmission au tableau de tri 

178 :GIVE,n#5,@a(1)::GET,nx5,@tri(1) 

189 

198 ‘indication des bornes Gauche et Droite 

249 g=1:d=n: GIVE, 2,88, 2, @d 

219 

229 "tri du tableau 


238 2=TIME:GOSUB 379:z=(TIME-z)/398 

249 

259 "recuperation du tableau trie 

269 GIVE, nx5,@tri(i)::GET,n+5,@a({) 

279 

289 ‘affichage du tableau trie et du temps de tri 
299 FOR i={ TO n:PRINT a(i):NEXT 

389 PRINT z 

318 END 

329 

Jap Essen espere sense entente 


349 "Routine "QUICKSORT" d'apres C.A.R. Hoare 
358 

369 "definition des variables locales 
378 LOCAL, 2, @g, 2, @d,2,@f 

388 "recuperation des. bornes de tri 

398 :GET, 2, @g, 2, @d 

499 

419 ‘tri fini si { seul element 

429 IF g)=d THEN 799 

439 

449 tri par rapport a l'element central, 
l'element de gauche 


echange avec 


459 i=(gtd)/2:x=trili)itri(il=tri(g) 
469 

479 ‘on tri de droite a gauche 

488 f=g:i=d 

499 


588 ‘trier le tas 

519 WHILE idf 

529 

539 * placer a gauche tout element inferieur 
549 
16ET,5,@tri(f),5,@tri(i): GOTO 588 

559 * passer a l'elenent suivant 

569 i=i-{ 

578 ? 

589 VEND 

599 ? 

649 "placer element de partage entre les tas 
618 trilg)=tri(f):tri(f)=x 

629 


IF tri(i)x THEN f=f#1:GIVE,5,@tri(i),5,@tri(f): 


>XZ 
RJ 


RD 
RE 
)AL 
>RG 
>RH 
>FM 
>RK 
)TA 
JWY 
RD 
RE 
>EH 
RG 
>RH 
> FX 
RK 
)TA 
)AE 
)2G 
>RH 
RF 
RG 
RH 
RJ 
)RK 
DUJ 
)TR 
>NQ 
RE 
RF 
ML 
RH 
RJ 


>FN 
>TA 
>TB 
>ZA 
>TD 
RF 
>MK 
>RH 
RJ 
Du 


>TA 
)EH 
>TC 
)DB 
TE 
)RG 
>uQ 
)RJ 


CO 
œo 





638 ’trier le tas de gauche 

649 b=f-1::GIVE,2,@g,2,@b:GOSUB 379 
658 

669 ’trier le tas de droite 

679 b=f+1::GIVE, 2, @b, 2, @d:GOSUB 378 
689 

698 ’restauration des variables locales 
749 :ENDLOCAL, 2, @g, 2, @d,2,8f 

719 

729 RETURN 


QUICK-S 


199 MODE 2::STACK,8&7000, 41008 

119 DEFINT b-u:DEFSTR a,t,x:n=199:DIM a(n):b=b:d=d:g=gt 
f=f 

129 

139 "remplissage d'un tableau de chaines 

149 PRINT'cree chaines..." 

159 FOR i=1 TO n:FOR j=1 TO (1+RNDX6):a(i)=a(i)+CHR$ (65 
+RNDX7):NEXT j,i 

169 ? 

178 ‘transmission au tableau de tri 

188 DIM tritn):FOR i=1 TO n:tri(i)=a(i):NEXT:b=FRE("") 
198 

249 ‘indication des bornes Gauche et Droite 

218 g=1:d=n: GIVE, 2, @g, 2, @d 

229 

239 ‘tri du tableau 


248 PRINT'trie...":2=TIME:GOSUB 388:z=(TINE-2)/399 
258 
269 "recuperation du tableau trie 


278 FOR i=1 TO nta(i)=tri(i):NEXT:ERASE tri:b=FRE("") 
289 

298 affichage du tableau trie et du temps de tri 
389 FOR i=1 TO n:PRINT a(i):NEXT 

318 PRINT z 

329 END 

339 ‘ 


354 ’Routine "QUICKSORT" d'apres C.A.R. Hoare 
369 

37 ’definition des variables locales 

389 :LOCAL, 2,8, 2, @d, 2, @f 

398 recuperation des bornes de tri 

499 :GET, 2, @g, 2, @d 

49" 

429 tri fini si { seul element 

439 IF g>=d THEN 719 

44g ? 

458 "tri par rapport a l'element central, echange avec 
l'element de gauche 


469 i=(g+d)/2:x=trili)itri(il=tri(g) 
478 . - 

489 ’on tri de droite a gauche 

498 f=g:1=d 

599 ? 


>RK 
>DM 
)TB 
)TC 
DK 
)TE 
)TF 
)XB 
JR] 
)ZEs 


>XZ 
>FG 


RD 
RE 
»2J 
>TC 


RH 
RJ 
ZE 
)TA 
RC 
Dr 
RE 
RF 
> YP 
RH 
)RJ 
YU 
)TA 
)TB 
>AU 
>2H 
)RJ 
RG 
RH 
RJ 
RK 
)TA 
UK 
)TC 
NG 
RF 
RG 
>MN 
RJ 
RK 


>FP 
TB 
>TC 
?2B 
DRF 





518 "trier le tas 

529 MHILE if 

538 ? 

549 ” placer a gauche tout element inferieur 


559 IF tri(i)x THEN f=f+1: GIVE, 3,@tri(i),3,@tri(f): 


1GET,3,@tri(f),3,@tri(i): GOTO 598 
569 ? passer à l'element suivant 

579 i=i-1 

588 

599 WEND 

689 

619 "placer element de partage entre les tas 
628 tritg=tri(fh:tri(f)=x 

639 

649 "trier le tas de gauche 

659 b=f-1::GIVE,2,@g,2,@b:GOSUB 389 

669 

679 "trier le tas de droite 

689 b=f+1::GIVE, 2, @b,2,@d:GOSUB 388 
699 

789 "restauration des variables locales 
719 :ENDLOCAL, 2, @g, 2, @d, 2,Bf 

728 ! 

739 RETURN 


SHELL-R 


119 MODE 2::STACK, 89909, & 1809 


©1289 DEFINT a-s:DEFREAL t-z:n=498:DIM xtab(n) ,noeud(n, 3) 


:fils=fin=f:ptr=ÿ 

139 ? 

148 ’pointeurs du noeud 

159 ptra=f:occ=1:filsg=2:filsd=3 
169 ’ 

179 ‘initialisation de l’arbre 
189 racine=1:id=1 

199 

288 ‘remplissage d'arbre 

219 PRINT'insere dans arbre..." 
229 FOR i=8 TO 199 

239 x=ROUND(1H8#RND, 8): :GIVE,2,8racine:GOSUB 35ÿ 
248 NEXT 

259 

269 ‘affichage de l'arbre 

279 :GIVE,2,@racine:GOSUB 54ÿ 


324 '’Routine de tri binaire 

339 

349 "recuperation du pointeur de noeud 
359 :GET,2,@ptr 

369 

379 "si noeud vide alors ajouter valeur 





RG é d)=x:noeud(ptr,occ)=1:G0T0 498 


NA 
RJ 
>RK 
)YP 


>TB 
)EJ 
>TD 
)DC 
RG 
RH 
DUR 
>RK 
)TA 
>DP 
>TC 
>TD 
>DX 
>TF 
RH 


>HK 


xx @ 


> AG 


RE @ 


RF 
CH 


RH @ 


)RJ 
MK 


TA @ 


RC 
)FG 


LE © 


)VP 
)EB 
>RH 
RJ 
)2N 
)TA 
)TE 
RD 
RE 
RF 
RG 
RH 
LV 
RK 
>TA 


388 IF noeud(ptr,ptrx)=# THEN noeud(ptr,ptrx)=id:xtab(i >XK 


398 
499 ‘identite entre valeur X et celle du noeud 


419 IF x=xtab(noeud(ptr,ptrx)) THEN noeud(ptr,occ)=noeu 


d(ptr,occ)+1:G0T0 498 
429 ? 
438 ‘aller a gauche 


449 IF x<xtab(noeud(ptr,ptrx)) THEN :GIVE,2,8ptr,2,@fil 
sg:GOSUB 749::GIVE,2,@noeud(ptr,filsg):GOSUB 359:GO0T0 4 


9 
45g ? 
468 ‘aller a droite 


4179 GIVE, 2,@ptr,2,@filsd:G0SUB 74ÿ::GIVE,2,Bnoeud(ptr, 


filsd):GOSUB 358 
469 ? 

498 RETURN 

599 ? 


529 ‘Affichage d'arbre 

538 

549 LOCAL, 2, @ptr 

558 ? 

569 :GET,2,@ptr 

579 ? 

589 IF noeud(ptr,occ)=9 THEN 678 

598 ? 

649 ‘affiche fils gauche 

619 :GIVE,2,@noeud(ptr,filsg) :GOSUB 549 


629 PRINT DEC$(noeud(ptr,occ),"####");" =) "ixtab(noeud 


(ptr,ptrx)}) 

639 

648 ‘affiche fils droit 

658 :GIVE,2,@noeud(ptr,filsd):GOSUB 548 
668 

679 :ENDLOCAL, 2, @ptr 

684 

699 RETURN 

789 


728 "Allocation de fils a un noeud "n" 
739 

748 :LOCAL,2,@n,2,@fils 

75g ? 

769 :GET,2,@n,2,@fils 

719 ? 

788 IF noeud(n,fils)=8 THEN id=idti:noeud(n,fils)=id 
79g 

899 :ENDLOCAL,2,@n,2,@fils 

819 

829 RETURN 


SHELL-S 


199 MEMORY &8FSB:OPENOUT"x":MEMORY HIMEM-1 :CLOSEOUT 
118 MODE 2::STACK, 49099, 41909 


)'TC 
RE 
»GC 


RG 
RH 
TT 


>RK 
)TA 
BY 


)TC 
)ZJ 
RF 
RG 
RH 
JR] 
)NQ 
)TA 
)LY 
>TC 
)ZE 
)TE 
>RG 
KM 
)RA 


>RK 
TA 
>KN 
)TC 
RP 
TE 
)AA 
RH 
)RJ 
>RK 
)TA 
>TG 
)TC 
RT 
TE 
)YB 
>TG 
DUT 
)RK 
)2Fs 


AE 
»XC 


129 DEFINT a-l,n-2:DEFSTR n:n=698:DIM nottab(n),noeud(n )FN 


,3):fils=g:n<=4:ptr:$8 


139 ? 

148 ‘pointeurs du noeud 

159 ptrnot=f:occ=1:filsg=2:filsd=3 
169 ? 

178 ‘initialisation de l’arbre 

188 racine=1:id=1 

199 

289 ‘remplissage d'arbre 

219 OPENIN'article3":MHILE NOT EOF 
228 ‘lire et formater ligne 


239  INPUT#9, ligne$:GOSUB 938:i=INSTR(lignes," ") 


248 ‘ trier mot 
258 WHILE iOf 


269 mot=LOWER$(MID$(ligne$,1,i-1)):ligne$=MID$(lignes 


sitl) 


279 IF not@""THEN PRINT'insere "smot::GIVE,2,@racine 


:GOSUB 419 

288 i=INSTR(lignes," ") 

298 WEND 

399 WEND:CLOSE IN 

318 

329 ’affichage de l'arbre 

338 :GIVE,2,@racine:GOSUB 698 
348 ? 

358 END 

369 ? 


388 "Routine de tri binaire 
398 


499 "recuperation du pointeur de noeud 


418 !GET, 2, @ptr 
429 


438 "si noeud vide alors ajouter mot 
449 IF nottab(noeud(ptr,ptraot))}="" THEN noeud(ptr,ptre 
ot)=id:mottab(id)=mot:noeud(ptr,occ)=1:G0TO 559 


459 


468 ’identite entre not et mot du noeud 
479 IF not=mottab(noeud(ptr,ptrmot)) THEN noeud(ptr,occ 


)=noeud(ptr,occ)+1:GDTO 558 
489 
498 ‘aller a gauche 


549 IF not<mottab(noeud(ptr,ptrnot)) THEN :GIVE,2,@ptr, 
2,@filsg:GOSUB 899: :GIVE,2,@noeud(ptr,filsg):GOSUB 419: 


GOTO 558 
519 ? 
528 ‘aller a droite 


539 (GIVE, 2,@ptr,2,@filsd:GOSUB 899: GIVE, 2, ênoeud(ptr, 


filsd):GOSUB 419 
548 

559 RETURN 

569 


589 Affichage d'arbre 

598$ 

699 LOCAL, 2, @ptr 

619 ? 

629 :GET,2,@ptr 

638 ’ 

649 IF noeud(ptr,occ)=$ THEN 738 


RE 
»RF 
)EH 
>RH 
JR] 
MK 


TA @ 


RC 
)FY 
RE 
UE 
RG 
VB 
GX 


>TU 


)TD 
>DD 
HV 
RE 
>RF 
>ZG 
>RH 
TB 
>RK 
DTA 
)TB 
>TC 
RE 
)LR 
>RG 
>RH 
>BD 


>RK 
)TA 
>TN 


)TC 
>TD 
)EA 


RG 
RH 
>BN 


>RK 
»2F 
)TB 
>TC 
)TD 
)TE 
)NH 
>RH 
)LV 
>RK 
)ZY 








@ 55 


| à 688 PRINT DEC$(noeud(ptr,occ),"####");" =) ":mottab(noe 


» 
© 


668 ‘affiche fils gauche 
678 :GIVE,2,@noeud(ptr,filsg):GOSUB 698 


ud(ptr, ptrmot)) 

699 

788 'affiche fils droit 

719 GIVE, 2,@noeud(ptr,filsd):GO0SUB 698 
728 ? 

739 ENDLOCAL, 2, @ptr 

748 ? 

759 RETURN 


788 "Allocation de fils a un noeud "n" 
79g ? 

898 :LOCAL, 2,@n,2,@fils 

819 ? 

828 :GET,2,@n,2,@fils 

839 

849 IF noeud(n,fils)=ÿ THEN id=idt{:noeud(n,fils)=id 
859 

864 :ENDLOCAL, 2,@n,2,@fils 

878 

884 RETURN 


999 "suppression espaces superflus 
919 ? 


928 "supprime signes de ponctuation & co 


939 ligne$=" "+lignett" ":s$="12H8%U" () =u4-,,/:: 1@C1"+ 
CHR$(34):FOR i=2 TO LEN(ligne$)-1: j=INSTR(s$,MID$ (ligne 
$,i,1)):IF jO8 THEN lignet=LEFT$(lignes, i-1)+" "+MID$( 


ligne$,iti) 

949 NEXT 

954 

969 "supprime espaces a gauche 


978 i=1:k$=" "IWHILE k$=" ":k$=LEFTS (lignes, 1):1F k$=" 
"AND ligne$=" "THEN ligne$="":RETURN ELSE IF k$=" "THE 


N ligne$=HID$(lignes,2) 

989 WEND 

998 

1895 ‘supprime espaces a droite 


1919 i=LEN(ligne$):k$=" ":WHILE k$=" ":k$=RIGHT$ (lignes 
1 12IF K$=" AND ligne$=" "THEN ligne$="":RETURN ELSE 1 


F k$=" "THEN ligne$=LEFT$(lignes,LEN(ligne$)-1) 
1828 WEND 

1939 

1849 ‘supprise autres espaces superflus 


1959 i=INSTR(lignes," "):VHILE i@8:j=i:WHILE MID$(lign 
e$,j,1)=" ":j=j#{:MEND:IF j)i+1 THEN ligne$=LEFT# (ligne 


$,i)+MID$(lignes, j) 


1868 j=i:i=i+INSTR(MID$(lignef, i+1)," "):1F i=j THEN i= 


ÿ 

1978 VEND 

1988 ? 

199$ ‘ajoute un espace en fin 
1188 ligne$=lignes+" " 

1118 ! 

1128 RETURN 


>TB 
>TC 
>KQ 
)YH 


)TF 
>RH 
XKG 
>RK 
RL 
)TB 
>ZH 
>TD 
)TE 
)TF 
>TG 
>TD 
>RK 
>RP 
>TB 
)YY 
>TD 
uz 
)TF 
)AB 
>TH 
>RK 
)TA 
>TB 
)WD 


)EJ 
)TE 
)TF 
)VA 


>DF 
>TJ 
>XD 
AN 


v 


HA 
»XG 
)XH 
DUR 


AE 


)JC 
NB 
)YC 
QG 
XF 
)EHs 
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ème | 
par te Fabien FESSARD 


et 
Stéphane SAINT-MARTIN 


Valable pour CPC 
6128 
464 + ext. 64 ko 
Les marathoniens du 
listing peuvent 
continuer leur épreuve : 


la suite d’Axys s'étend 
sous leurs doigts agiles. 





N'oubliez pas d'utiliser 
DATALOAD pour vous 
faciliter la tâche. De 
toutes façons, le résultat 
en vaut la peine. 


Ce mois-ci les listings 
sont intitulés 
DATAS2B.BAS et 
DATAS2C.BAS. 


A suivre... 


——— 2 —— 
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UC 


ce 


(DAS | B.BAS 


19  DATAS2B AXYS 

28 ' 

34 MODE 2:AD=8CB9S:NL-99 

4g FOR A=1 TO 667:B=ÿ:FOR C=1 TO 15:READ A$ 

59 POKE AD, VAL("&"+A$) :B=B+PEEK (AD) :AD=AD+1 

69 NEXT:READ E$:1F VAL("&"+E$) OB THEN 88 

78 NL=NL+19:NEXT: SAVE" INTROB",B, &C99,&2719:CLS : END 

88 CLS:PRINT'LIGNE"NL;" INCORRECTE" : END 

94 DATA 76,93,98,43,C3,96,9F,33,CB,C7,76,CF,94,4F,0F,598 
198 DATA 9F,1B,1B,76,33,95,9F,4F,CF,CB,C3,83,93, 76, 3C, 466 
119 DATA 9B,99,15,3F, A2, 99,93, 42, 14, 2D,9F,9F,CF, 93,42, 289 
128 DATA 8E, 3C, 3, 78,3C,93, 42,60, 18,B9,9C, 48,C9,69, 84,52 
139 DATA F9,8C,4C, DB, B4, 3C, 38, B4, 76,3C, 95, B8,64,9C,C9,713 
149 DATA 89,99,21,91,93,43,C3,C3,C7,CF,93, 42,76,0F, 86, 4D4 
158 DATA 1B,33,83, 42,76, 76,91, 76,FC,94,33,33,67,CF,C7,559 
168 DATA C3,83,93,76,3C,97,00,F3,F3,15,09,B7,F3, A2, 09,649 
179 DATA 93, 42,3E, 39,6F,9F,4F,CF,93, 42,8E, DA, 78,4C,58,541 
189 DATA 76,3C,94,F4,8C,C9,58,78,B4,3C,F9, 34, 3C,C8,99, 76E 
199 DATA DB, 3C, 24,98, 8C, 8C, 48,C4, CC, CC, 8C, 48,C8, DB, 38,828 
269 DATA 3C,64,8F,0F,0F, 76,33,06,76,76,81,76,FC,97,7C,4FE 
219 DATA FC,FC,33,33,4F,CF,CF,C3,83,93, 76, 3C, 96, AB,51, 745 
229 DATA A2,09,3F,51,F3,F3,A2,98,93,42,FE, A2,E7, 76, CF, 7CB 
239 DATA 85,6F,58, 76,3C, 06, B4, DB, 38,B4, B4,3C, B4,98, FD, 748 
249 DATA B9,F4,FD,E0,84, 79,64,76,#C,95,CC,98,CC,CC, BC, 857 
258 DATA CC, CC, 39, F9,B1,85, 33,93, 42, 76,FC, 05, 76,3C, 97,696 
269 DATA 7C,FC,FC,33,27,0F,CB,C3,C3,83, 93, 76,30, 96, A8, 714 
279 DATA 51,F3, A2, 3F,99,F3,F3, A2, 09,93, 42,3E,2A,55, 76,625 
288 DATA CF,94,4D,8E,B4, 76,3C,96,F9,6C, 34,3C, F9, 93, 42,61B 
299 DATA 9C,D8,24,CC,39, 24,89, 8C, 4C,98, 39,64,CC,8C, 76,674 
399 DATA 9C,94,CC, 76,80, 94, 18,28, 1B,33, 33, 76, 76,91, 76,37E 
319 DATA FC, #4, BC, BC, 76, 30,95, 7C, FC, FC, 33,27, 9F,CB,C3, 79A 
329 DATA CB,63,83, 76,3C,05, 7D,99,90,51,51,FF,51,9F,3F, 4F5 
338 DATA A2, 89,43, 42, 7E, 2A,15,9F,48, 8C, 76, 3C, 94,38, 3C, 3B9 
349 DATA 3C,64,79,64,64,24,4C,38,CC,CC,8C, 84, CC, C8, BC, 6CY 
359 DATA 8C,48,49,8C,C9, B4,C9, D6, 38,9C, CB, 84,84, 48,C8,699 
369 DATA 93,42,89,C8,99,C4,B4,3C, 78,64,8C,48,C9,99,18,5C1 





376 DATA 33,33,FC, 83, 42, BC, 3C, FC, 76, 76,91, 33, 33,8F,4F, 54C 
389 DATA CF,C3,C3,83, 30,93, 42,39, 76,89,96, 15,87, 3F, 3F,558 
399 DATA A2, 89,93, 42, 7E, 46,90, A7, 4F,CF,CF,8E, 0C, 8C, CA, 697 
489 DATA 18,80, CA,84, CA, C8, 48,C0,93, 42, 84, CB, C4, AC, B4, 755 
419 DATA 48, 84,89, 84, 49, 86,09, 40, 04,84, 48,C8, 48, 80,08, 498 
420 DATA 66,48,58,B4,64,F8,B8, 84, 49,89, 76, 80,67, 89, 33,5CC 
139 DATA B9, 33,76, 76,81, FC, FC, B9, 33, 27,0F,CF,CF, C3, CF, 823 
449 DATA 83,30, 30, 79, 76,09,98, 87, 7F,FF, AA, 0,83, 42, 7E, 594 
459 DATA 28,55,27,4F,0F,4F,CF,8F,6D, CF, 6F,4F,CF,CF,BE,6F5 
469 DATA 48,84, C9, 48, 76,C8,05,88, 76,89, 13, D, 89, 76,09,513 
478 DATA 84, 49, C9, 83, 42, 09, 09, 49,85, 33, 33, 76, 76, 91, 33, 394 
489 DATA B9, 33,33, 76, 76,01, 27,4F,CF,CB, C3,C3, 03, 3C, 28,699 
499 DATA 51,A2,76,88,8E, 76, 76,01,48,98,05, 1B,0F,93, 42, 389 
580 DATA CF,CF,8F,0F,4F,4F,CF,03, 42,C3,C7,CF, CB, C7, CB, B64 
519 DATA CA,48,89,C6,C3,C3, CB, CB, C3,CB, 76,C3,85,CF, CF, 946 
529 DATA C3,CB,C7,CF,93, 42,6F,76,9F,88, 33, 33,0F,0F, 33,530 
539 DATA 1B,8F,9F,33, 27, 33,43, 42, 27,0F,CF,C7,C3,83, 76, 493 
549 DATA 89,0F,FE, BC, B9, FC, F9,08, F3,38, 33,36, 3C, 9F, 27,689 
559 DATA 76,8F,87,76,CF,05,CB, CF, 76,C3, 8D,C7,C3,CF, C3, 7D2 
569 DATA 76,CF,0C,0F, 4F,4F,CF,4F,4F,0F,6F,76,9F,45, 1B,4AE 
579 DATA 33,8F,4F,4F,CB, C3, 83, 42, 76,08, 19,54, A6,08,98,515 
589 DATA 51,08,55,FC, 36,89, 76,33,45, 18, 27,0F, 03, 42, FC, 4D! 
598 DATA 27,76,CF, 84, CB, CB, C7, C7, TC, 76,C3,05,C7,CF,CF, 8B3 
689 DATA 9F,33,4F,CF,C3,CF,C3,C3,C7,CF,C7,C7,76,CF,BE, BEF 
619 DATA 8F,68F,8F,1B,33,0F,4F,C3,3C,FF, 76, 08,06, BB,FC, GA 
629 DATA 3C, 99,99, 7F,FF,3F,84,93,42,FE, AA, 09,83, 42, A2, 4CD 
639 DATA 88,89, 76, 76,91, BC, 76, FC, 95, B9, 33, 93, 42, 1B, 27, 493 
649 DATA 1B,36, 30,27, 4F, 76,CF,04,C3,CF,C3,C3, CB, 36, 27, 68C 
659 DATA 4F,76,CF,95,CB, C3,CB, CB, 76, C3, 94, 76,CF,87,87, 7CD 
669 DATA 4B,CB,C3,93, 42, CF,CF,6F, 76,0F, 84, CF, 3C, B7, FD, 793 
678 DATA 76,89, 84,51, A2, 76,99,95,A2,08,54,FC, FC, 70, 76, 5CF 
689 DATA 89,97,51,3B, BC, FC, 93, 42, 76,33, 94, 0F, 1B, BC, 39, 45C 
698 DATA 27,8F, 76, CF, 87, 8F,0F,03, 42, 76, CF, 09, C7, 33, 27, 4D4 
788 DATA C7,76,CF,07,C7,93,42,C3,CF,93, 42, 0F,8F,CF, DF,6C2 
719 DATA FC, 7C, BD, A2, 76,86, 11, 24, 96,55, AA, 98, BB, 33,FC,671 
728 DATA FC, 77, BB, FC, 33, 33, 77,FB, A2, 76, 80, 06,51, 7F, 76, 766 





738 DATA 76,81, 30, 39, A4, 76,09, 19,51, AF,9F,5F, A2, 08,93, 42F 
749 DATA 42, 15,7F,BF,3F, 93, 42,FF, 33,33, 97, 24, 60,03, 42, 424 
758 DATA ?F,FF, FD, 33,BF, 38, 42, 15, 76,06, 98, B3, 76,33, 8C, 645 
769 DATA 77,FF,33, 76, 76,91, FC, 37, A2,08,51,3F, 76, 33,85, 5A9 
776 DATA BB, BB, 33, 76, 76,81, 33,93, 42, BB, 37,F3,FF,FF, 33, 724 
789 DATA 76, 76,91, FC, B9, 33,43, 42, 77, FD, 7C, FC, FF,FF, BB, BBF 
799 DATA 33, 33, 77, 76, 33,07, FF,FF, 77, BB, 39, FF, FC, FC, BC, BA3 
898 DATA FF,FF,77,FF,FF,08, 7F,BB,BF, 08,78, 11,33, 33, FF, 85D 
819 DATA FF, 76,3F,85,BF,FF,FB, B7, BB, BF, B7, BB, 37, 78,8, 8C7 
829 DATA 15,33, 33, AA, 88,93, 42,33, 76,76,81,B9, 77, FC, BC, 572 
838 DATA 30, FC, 33, 22,99, 90,51,FF, 33,76, 76,91,BC,3C,FC, 5F1 
849 DATA FD,FF,FF, 77,FF, 93, 42, 76, 33,89,FF, FC, 83, 42, FF, BAT 
858 DATA FF,3F,3F, 7F, 76, 33,85, 77, FC, FC, BB, BB, 33, 77,FF,838 
869 DATA FF, 77,BF, 78, 76,80,99,3B,FF,B7, 77,89,F3,3F,FF, 7CB 
876 DATA A4, 76,89,88,3F,BF,FF, 33, BB, 33, 3F, F3, 7F,BB, A2, 754 
888 DATA 99,51,33,FF,FF,BB, BB, 33, 33, 7F,FB, 87, BB, 33, FE, 878 
898 DATA FC, FC,FF,FF,3F, 24, 76,09, 06,87,FE, FC, BC, 3C,FF, 983 
989 DATA 76,33,05,3F, BB, 76,33, 64, 77,38, FF,BF, 7F,BB, 33,638 
918 DATA 78, 76,30, 89, 76, 30,88, 76, 3C, 08, 76, 3C, 5A, 08, 88, 39D 
929 DATA A2, 24,3F, 76,88, 07,7E, 24, 15,CF, 83, 42, BE, 8C, 56, 4CB 
939 DATA 3C, 30, B4, 3C, 43, 42, B4, 78,F8,B4, F8, 78,64,CC, #C, 719 
949 DATA 4C, 24, CC, CC, 98, CA, 80, CA, 83, 42, AC, 4C, 4C, CC, 64,6C5 
959 DATA CC, #3, 42, 8C, 48, 48, 84, 88, 88, 1B, 33, 93, 42, 76, FC, 546 
969 DATA 95, BC, 76, 3C,85, 7C, FC, FC, B9,27,8F,CF, C3, C3, 83, 783 
978 DATA 93,76,3C, 85, 7D,88,99,51,51,FF, 15, 3F,3F, A2, 08, 49D 
989 DATA 93, 42,54, AA, 15,67, 4F,CA,B4, 34, 3C, E4, BA, 3C, A4, 664 
999 DATA 98,64,98, 18,24, 4C, 98, 4C, CC, BC, 84, CC, 48, 4C, #C, 5CB 
1989 DATA CB, 48, 4C, 4C, 48, 84, AC, B8, 84, 0C, 8C, 89, CB, CB, 48, 5FC 
1918 DATA C9,89,49,34,3C, 78, 24,CB,CC, 38, F8, 3C, A4, 49, 33,688 
1929 DATA 33,FC,FC, 7C, BC, BC, FC, FC, 33,33, 8F,0F, CF, CF, 83, 8BC 
1838 DATA 83,30, 93, 42, 70, 76,98,66, 15,87, 3F,3F, 2A, 89, 83, 374 
1949 DATA 42,7E,A8,80, A7, 4F,CF,8F,CF,0C, 8,84, 48, CG, 84,683 
1858 DATA C, CH, 84, CB,93, 42,88, 48,C8, 4C,8C, 84, 48, CO, 89,689 
1969 DATA 94,84, 90,88, C8, C9, 76,08, 88,84, 79,58, FB,68, 76,61C 
1878 DATA 89,04, 76, 98,97, 76, 76,01, 89,33, 76, 76,81, FC, FC,5BF 
1989 DATA 33,33,27,8F,CF,CF, C7, CB, 83, 3C, 3C, 79, 76,48, 98, 5BE 
1898 DATA 15,7F,FF, AA, 08,93, 42, 7E, 28,15,2F,8F,0F,4F, CF, 4AB 
1199 DATA 9B,27,2D,8F,4F,CF, CF,9B, AC, 88, CH, 0C, CB, 48, CB, BE 
1119 DATA C9, 89, 76,99, 13,94, 1B,27,8F,27,8F,8C, C9, 96, CO, 469 
1128 DATA 84, CC, 8D, 33, 76, 76,81, 33, 76, 76, 91,FC, 76,33, 84, 5C6 
1138 DATA 76, 76,81,27,4F,CF,CF,CB, 83,83, 4C, 79, F3, A2, 76, 792 
1149 DATA 98,8D,51,BC, 28,48, A7, 33, 27,0F, 43,42, 4F,CF,6F, 444 
1158 DATA 76,CF,95,C3,C7, 76, CF,95, C7, C3,CB, 76,C3, 84, 83,833 
1169 DATA E9, 76,C3,84,C7,CF,C7,C7,CB, C7, CF, CF, 8F,4F,9F, 927 
1178 DATA 6F,76,9F,0C, 27,9F, 1B, 27,33,83,42,27,4F,CF,CB, 429 
1189 DATA C3,93,99,93, 42, A2, 08,03, 42,F3, 08,51, 76,08, 96, 382 
1198 DATA 11,FC, 33, F9, 08, A2, 11,33,36, 3C, 8F, 1B, 76, BF, 87, 447 
1288 DATA 76,CF,87,76,C3,0E, CB, CF, C3, C7, 76,CF, OD, 4F, CF, 827 
1218 DATA CF,6F,9F,4F,CF,6F,6F,0F,93, 42, 33,9F, 4F, BF, CF, SEC 
1229 DATA CB,83, A2, 76,69, 8B, A2, A2, 68,03, 42,54, 22, 08,88, 479 
1238 DATA 51, 24,08, FC, 33,89, 76, 33,96, 76,8F, 04, 36, 39, 8F,419 
1249 DATA 76,CF,#4,C3,CF, CB, B9, C3, 83, 42, CF, C3, CF, CB, 8F, 922 
1258 DATA 5E, 27, CF,CF,C7,CF,CF,C3,C3,C7,83, 42,76, CF, BA, 869 
1268 DATA CB, 76,CF,84,8F,9F, 8F,33,0F,4F,DF, 7C, FD, 76, 98,629 
1278 DATA 05, 76,33, 04,08, B7,3F,F3,3F, A2, 0,51, BC, AB, 76, 5A7 
1288 DATA 69,06, 7F, 70, 7C, BC, B9, FC, FC, 76, 33,05, 1, 8F, 1B, 5DD 
1298 DATA 3C,89,0F, 76,CF,94,C7,CB,C7,C7,CF,8F,4F, CF, CF, BBB 
1369 DATA 8F,CF, 93, 42,C7,CB, CF, C7, CF, C3, 93, 42, CF, 93, 42, 786 
1318 DATA CB,CF, 93, 42,C7, 4F, 76,C3,94,C7,CF, CF, 76,8F, fé, 728 
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1329 DATA 4F,7C,B7,FF, 76,09, 11, 24, 86, B3, FC, 93, 42, BF, 76,658 
1339 DATA 99,88,51, 76, 76,81,FC, 03, 42, 76, 33,4, 27, 76, 76,447 
1348 DATA 91,70, 33,9F,9F,CF, CF, 6F,CF,4F,CF,8F,0F,93, 42, 5CB 
1358 DATA 4F, 76,CF,98,C7, 76, 76,91, 27,CF,83, 42, C7,CF, CF,6F8 
1369 DATA C7,CF,CF,C3,CF,C7,CB, CF,CF,F,5F,FF, 30, B7, FC, A63 
1378 DATA BF, 42, 76,98, 18,51,78,68,55, AA, 60, BB, 33, 76, 76,58€ 
1389 DATA 91,FC, 37,38, 76, 76,81, 3C, FC, 76, 33,94, 77,FF,F3,6AA 
1398 DATA 76,99, 04, 76,FF, 84, 76,08,98,BF, 3F,76, 80,85, 9F,42F 
1488 DATA 7F,FF, FF, BB, 33,33, BF, 7F,FF, 77, BF, 76, 00,04, 3F, 7CA 
1418 DATA 2A,96,FF,BB, 77,BF,FB, 76,08,98,15,FC, 76, 33, 98,655 
1429 DATA B9,33,FF, 77, 77, 78, B7, 33, 33, FD, 38,08, 03, 42, 11,5FF 
1439 DATA 33,83,42, 77,FF,FE, 33, FC, 77, FF, BB, BF, A2, 69, 89, 7AD 
1449 DATA F7,FF, 76,33, 86, 77, FD, 7C,FF,FF, 33, 77, BB, 33, BB, 6E6 
1459 DATA 33,37,FF, 33,93, 42, 77,F3,F3,33,FF, 33, 77,FF,FF,818 
1469 DATA FC,BB, 33,89,55,F3, A2, 15, 7F,33, 33,08, 77,FF,FF, 743 
1478 DATA BF, 76,3F,94,F3, 3F,93, 42, 33,03, 42, 77, 9F, 2A, 76, 4BD 
1489 DATA 98,84,3B,FF, 33,51, 89,00, 76,33, 06, BE, FC, FC, 98, 527 
1498 DATA 99,F3,F7, 33,33, FC, BC, 33,FF, FD, FC, FC, FF, FF, FD, B2A 
1589 DATA FC, BB, BB, 76, 33,96, FC, FC, 30, FF, 93, 42, 7F,FF,03,81A 
1519 DATA 42,77,33,FF,FC, 30, FC, FF,FF, 76,33, 84, FF, BB, 37, BBB 
1529 DATA 3F,FB,F3,99, 69, A2, 76,00,05,55, 3F,3F, 76, 76,01, 594 
1538 DATA 99,51,B7,9F, AA, 76,98,07,38, 33,93, 42, 3F,B3, 33, 446 
1549 DATA 33,77,FF,FC, 37,00,51,3B, BB, 33, 33, 77,FF, 3F, 78, 689 
1559 DATA F3,87,F7,33,77,FE,FF,BB,33,FF,BF, 78, F3, 89, 89, 962 
1568 DATA 3F,7F,FF,FF, BE, 7C, 7C, BB, 77, BB, FF, BF, 3F, 76,FF, 9D1 
1578 DATA 94,76, 33,08, 77, BB, BF, 24,98, 11,33, 78, 76, 30, 35, 476 
1589 DATA FC, B9, 33, 76, 76,91, FC, 7C, FC, 33, 1B, 76, 76,91, FC, 788 
1599 DATA BC, 3C, 7C, 33, 76, 3C, 4D, FC, B9, 33, 33, FC, 30, FC, 33, 728 
1688 DATA 1B, 76,76,81,FC, BC, 30, 7C, 33, 3C, 03, 42, 76,0C, 07, 485 
1619 DATA 3C,3C,4C, 0C, 76, 3C, 84,80, 6C, 30, BC, AC, 76, 3C, B4, 268 
1629 DATA 4C, BC, 3C, 3C, 76,80, 86, 76, 30, 28, TC, B9, 33, 33, 76, 493 
1638 DATA 76,81, FC, FC, B9, 8F, 76, 76,81, FC, BC, 3C, 7C, 33, 3, 793 
1649 DATA 83,42, 76,8C, 87, 9C, 3C,8C, 8C, QC, 3C, 3C, 2C, 8C, 8C, 596 
1654 DATA 3C, 80, 8C, 76, 3, 84,8, 8C, 30, 20, 76, 8C, 86, QC, 76,544 
1669 DATA 30, 27, 7C, FC, 33,93, 42, FC, 83,42, 27,33, FC, BC, 3C, 5E2 
1678 DATA 7C,33,3C,93, 42, 76, 40,08, 30, 4C, 93, 42, 3C, 3C, 4C, 38B 
1689 DATA 93,42, 3C, 4C, 4C, 76, 3C, 94, 4C, 4C, 3C, 76, 4C, 98, 76, 3E3 
1698 DATA 3C, 28, FC, 33,93, 42, 76, 76, 81,FC, B9, 27, 1B, 76, 76,548 
1746 DATA 81,FC, 30, FC, 33, 3C, 83,42, 76,98, 98, 3C, 98, 93, 42,518 
1718 DATA 9C, 38,98, 83, 42, 3C, 98,98, 76,30, 94, 98,96, 3C, 76,585 
1728 DATA 98,98, 76, 30, 19, BC, 76, 3C, 8D, 7C, FC, 33, 93, 42, 76,54€ 
1738 DATA 76,91,BC, FC, 27, 1B, 76, 76,81,FC, BC, FC, 27, 76, 4C,6EB 
1749 DATA 89,38, 39, 3C, 38, 76, 30,06, 34, 3C, 38, 39, 76, 3C, 04, 39F 
1758 DATA 39,36, 3C, 38, 38,93, 42, 30, 3C, 38, 38, 76, 3C, 19, DC, 3C8 
1769 DATA 30, 7C, FC, FC, BC, BC, 76,30, 87, 7C, FC, B9, 33,93, 42, 78A 
1778 DATA FC, FC, 33,0F, 76, 76,91, FC, BC, FC, 27, 76, 3C, 89, 32,6EF 
1789 DATA 32,30, 3C, 76, 32,96, 4C, 30, 32, 32, 76, 3C, 04, 32, 32, 34E 
1798 DATA 3C, 30, 32,93, 42, 36, 30, 32, 32,76, 3C, 19,5C, BC, 76,41E 
1889 DATA FC, 96, BC, 3C, 43, 42, TC, 3C, TC, FC, 76,33, 04, 76, 76,608 
1818 DATA 91,FC,33,0F, 76, 76,81,FC, FC, B9, 27, 30, 83, 42, 31,586 
1828 DATA 31,76, 30,4, 31,31, 3C, 3, 39, 76, 31,94, 34, 3C, 3C, 351 
1839 DATA 76,31,98, 30, 3C, 39, 31,93, 42, 76, 3C, 1B, 7C,5C, FC, 477 
1848 DATA FC, 33,FC, 76, 76,81, FC, 93, 42, 7, 3C, 3C, 7C, 3, 3C, 641 
1858 DATA FC, 76,33, 94, 76, 76,81, FC, 33,8F, 33, FC, FC, B9, 27,6DF 
1868 DATA 30,93, 42, 33, 33, 76, 3C, 04, 33,33, 3C, 03, 42, 76, 33, 32D 
1878 DATA 94,3, 93, 42, 76, 33,98, 3C, 83, 42, 33,93, 42, 36, 76, 2DB 
1889 DATA 30, 12,88,83, 42,24, 15,76, 80,07, F6, AA, 51,CF, CF, 4DE 
1899 DATA 8E, 34, 38,B4, 3C, 78, 3C, 93, 42, 78, 78,30, 78,56, B9,56F 
1988 DATA CC, 38,39, 8C, 78,64,98, 38, 98, B8, 4C, 98, BC, 38, 38,63C 





1918 DATA 64,CC,98,38,CC,CC, 38, 64,98, 38,CC, 88, EC, SE, B9, 7C3 
1928 DATA 76,76,82, 76,FC,46,3C,93,42,BC,3C, 7C, FC, FC, B9, 78C 
1938 DATA 27,8F,CF,C3,C3,93,93, 76,3C,95,37,89,89,B7, F3, 529 
4949 DATA FF,51,3F,3F, 2,99, 93,42, 55, A8,99,2F, 4F,CA,94,58E 
1959 DATA 78,78, 1C,3C,E4,98,98,24, 38,98, 24,C4,CC, 4C, BC, 6CC 
1968 DATA CC,84,CC,8C, 4C,8C, 49,49, 8C, 4C,CS, 89, 49,99, 48,539 
1974 DATA 84,9C, 18,38, 48,C8,8C, 48,D8,3C,B8,8C,8C, F9, FO, 668 
1989 DATA 64,48,C9,C9,88,91,B9,FC, FC, 7C,FC, BC, FC, FC, B9, ASB 
1998 DATA 33,8F,9F,CF,CF,C3,83,3C, 93, 42,39, 76,96, 56, 15,488 
2689 DATA 99,F3,7B,A2,99,93,42,F6, AB,51,27,9F,CF,93,42,58E 
2818 DATA 65,4C,84,6C,8C, 48, 9C,84,84,C8,48,C8, 83,42, 89, 4F6 
2929 DATA 49,9C,84,48,8C,89, 84,9, 8C, 94,98, 76, 00, 99, 48, 293 
2838 DATA 84,54,B9,98,C8,C8, 76,98,#7,C8,CB,FC, 33, 33, FC, 773 
204$ DATA 93,42,B9,33,33,9F,CF,CB,C7,CB, 93, 30, 3C, 28, 76, 5BB 
2858 DATA 99,09, 7F,FF,AA,98,93,42,FE, 28,88, A7, 8F, 93, 42, 497 
2868 DATA 8F,CF,87,6D, 76,CF, 84,94, 39,CB, CD,C3, 76,C8,64,7F6 
2878 DATA 76,09,94,48,76,98,9F,85,76,9F,94, 76,33, 13, 4F,358 
2888-DATA CF,CF,CB,C3,83,3C, 22, F3, 76,98, 8E,51,FC, 28, 69,6F9 
2898 DATA B3,33,27, 76,9F,95,8F,4F, 4F,CF,93,42,CB,CF, 83,575 
2189 DATA 42,C7,76,C3,8F,CF, 93,42, CB, CB, 76, CF, 95,68F,6F, 763 
2118 DATA 76,9F,9F, 76,33,94,27,4F,CF,CB,C3,93,89,90,F3,58A 
2129 DATA A2,08,83, 42,F3,76, 08,98, 55,FC, B9, AB, 89, A2,11,5BD 
2138.DATA B9, 1E,39, 18,27, 76,9F,96, 1B, 4F,76,CF,86,CB,C3,529 
2149 DATA 93, 42,CB,CB, 76,03, 86,07, C7, 76,CF,9E, 8F,CF, 93, 75C 
2158 DATA 42,9F,CF,8F,4F,CF, 93, 42,68F,9F,93, 42,33,27,8F,45E 
2168 DATA 8F,CF,CB,C3, A2, 76, 89,08, F3,3F, 89,93, 42,54, 22,5FC 
2178 DATA 99,99,51,2A,98,FC,FC,B9, 76, 33,87, 8F, 93, 42, 76, 446 
2188 DATA 76,81,7C,8F,76,CF,88,C3,93,42,CB,C7,CF,CF, 1B,G6A2 
2199 DATA 33,4F,CB,C7, 76,C3,96,C7,C3, 76,CF,99,67,CB,C3, 828 
2289 DATA CF,93,42,0F, 83,42, 33,9F,4F,DF, 7C,FF, 76,99,04, 4CD 
2218 DATA 15,33,93, 42, 77,98, 3F,F3,98,B7, A2, 88, 89,36, 7D, 442 
2228 DATA 76,98,86,51, 76, 76,81,BC, BC, 7C, FC, 93, 42, 76, 33,598 
2238 DATA 85,0F,1B,BC, 7C,9F,CF,83,42,C7,CF,93,42,C7, 76, 5A2 
2249 DATA CF,87,CB,C7,83,42,CF,C3,CB,C3,CB, C3, 76,CF,97,8A7 
2258 DATA C7,CF,CB,C3,C3,C7,CF,CF,8F, 76,8F,84,5F, 7C,B7,6F6 
2268 DATA 3F,76,69, 11,2A,99,55,BB, 76, 76,81, B9, 76, 76,91, 493 
2278 DATA FC, 73,76,89,97,51,BB, 7C,FC,FC, 76,33, 84, 1B, BC, 6F 
2289 DATA FC,9F,93,42,6F,8F,8F,4F, 76,9F,97,4F, 76,CF,97,473 
2298 DATA 1E,27,76,CF,99,C7,76,CF,95,DF,BE, 3C, 3C, F9, 7E, 738 
2389 DATA FB,F3,76,99, 14, AA, 3B, 76, 33,94, B9, BB, FC, FC, 33, 7A9 
2319 DATA B9, 76, 76,91,39, 76,33,95,FF,F3,76,98,85,FF,BB,6B4 
2329 DATA 33,93, 42,FF,FF, AA, 76,99, 95,FF,BB,FF,BF,3F,93, 755 
2338 DATA 42,BF,FF,FF, 76,33,94,FF,BF,3F,3B,37,76,00,94,695 
2349 DATA F3,7F,FF,00,09,33, 93, 42, 7B, 76,99,97, 76, 16,01, 4CE 
2358 DATA 76,33, 9A,37,FF,33,BF, 99,93, 42,7F,33,93, 42,73, 48A 
2369 DATA 99,90,33,33,77,FF, BF, 77,33,FC, 33,83, 42, 73, A2,5CE 
2378 DATA 76,98,94,FF,FF,BF,3F, 7F,33,77,FF,FF,FD,33, 77,844 
2388 DATA 76,33,86,BF,3F, 7F,FF,BF, A2,08,98, 15, 7B,BB, 77,64€ 
2398 DATA FF,FC, FC, B9, 33, AA, 76,98,94,7F,33,BB, AA, BF, 7F,85C 
2499 DATA FF,BF,FF,33,77,3F,F3,3F, 93,42, BB, 33, 33,FF, 7B, 7BB 
2418 DATA 76,99,95,11,FF,FF, 7F,FB,B3,33,33,37,F3,3F, 3B,6C1 
2428 DATA 77,FF,33,3B,B7,3B, BB, 33, 83, 42,FC, B9, 33, FC, 3C, 729 
2438 DATA 3C,FF,FF,BC,FF,BB, 76,33,97,FF,FE, BC, 7C, BF, 3F, 993 
2449 DATA 7F,FF,FF,BB,33,33,FF,BE, FC, FC, 76,33, 94, 77,BB,932 
2459 DATA 33,33,BF,7F,FF,3F,F3,08,51, 76,88,85, 15, A2, 7B,5D3 
2468 DATA 33,89,51,B7,3F,2A, 76, 99,86, 3B, 76,33, 94,77, 11, 399 
2478 DATA 77,FF,93,42,33,33,3F,F7,FF, BB, 33,93, 42,FF, 83, 68B 
2489 DATA 42,3B,F7,F7,33,77,FC,FF, 33,93, 42, 77,FF,FF,3F,83C 
249ÿ DATA F3,98,FF,FD,FF,BE, FC, FC, 33,93, 42, BF, 3F, 3B, 77,8CC 
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2589 DATA FF, FD,FE, FE, FD, 76, 33,98, 89,93, 42, 15,38, FB, FC, 832 
2518 DATA FC, 76,33, 96,9F, 33, 27,8F,8F, 14,B8, 48,85, 76, 8F, 3C8 
2529 DATA 95,CF,8F,CF,CF,9F, 18, 4F, 6F,0F, 8F, 76, 33,04, 27, 4FB 
2538 DATA 9F,1B,1B,27,9F,4F,CF, 30, 60, 93, 42, 1C, AC, 3C, 30, 2C6 
2549 DATA 8C,2C,8C, 83, 42, 10, 76, 3, fa, 2C, 80, 3C, 93, 42, 0C, 226 
2558 DATA 93,42, 1C,3C,9C,93, 42,30, 2C, 00, 83, 42,76, 30, BA, 263 
2569 DATA 7C,FC, FC, 33, 33, 27, 33,33, 8F,93, 42, 1E, CC, CC, 4A, 5BB 
2578 DATA 94, CC, 88,45, 8F,4F,6F, CF, 4F, CF, 83, 42, 6F, 1B, 27,695 
2588 DATA 4F,CF,8F,0F, 1B, 33, 33, 27, 27,0F,1B,1B,0F,0F, CF, 33D 
2598 DATA CF,3C,8C, 43, 42,90, 8C, 30, 3C, 8C, 20, 8C, #3, 42, 9C, A1 
2689 DATA 76,30, 44, 20, 80, 3C, 83, 42, 76,80, 84, 20, 8C, 83, 42, 3F2 
2618 DATA 9C,2C, 80,93, 42, 76,30, 8A, BC, FC, B9, 33, 33, BD, 33, 5EC 
2629 DATA 33,9F,83,42,CC, 85, 4A, 88, 34,B6, 89, C5, 6F, 8F,0F, 689 
2638 DATA 9F,76,CF,64,6F, 1B, 27, CF,CF,8F,8F, 1B, 76, 33, 84,52) 
2649 DATA 8F, 1B,9F,9F, 4F, CF, CF, 76, 30, 85, 4C, 30, 30, 4C, 76, 472 
2658 DATA 3C, 89,60, 4C, 76,30, 96, 4C, 6C, 4C, 10,60, 1C, 76, 3C, 49F 
2668 DATA C, BC, 30, 7C, FC, FC, 33, 4E, 4C,9F, 83, 42, CB, CB, C4,6E5 
2679 DATA B4,E4,89,34,B9,C8,95,87,CF,6F,8F,CF,4F, CF, CF,871 
2689 DATA 8F,33,27,CF,83, 42, 0F,0F, 33,43, 42, 1B, 4F, 1B, 8F, 327 
2698 DATA 9F,4F,CF,CF, 30,60, CC, C, 40, CC, 6C, CC, CC, EC, CC, 7F8 
2788 DATA 93, 42,90, 76,30, 4, 6C, CC, 30,83, 42, CC, 3, 3C, CC, 568 
2718 DATA 3C,CC, CC, 30,83, 42, CC, QC, 76, 30, #9, 76, FC, 84, 33,621 
2729 DATA 8F,48,C8, 80, 8F,8E, Dé, CS, 30, 3C, 38, CB, 34, B8, CB, 5F1 
2738 DATA 45,87,CF, BF, 76,CF,85, 1B, B9, 4F,CB, CF, 83, 42, 8F, 685 
2748 DATA 1B,33,93, 42, 4F,9B, 9F,9F, CF, CF, CB, 3C, 38,98, 3C, 54C° 
2759 DATA 3C, 96, 38, 98, 98, 38,98, 3, 42,90, 76, 30, F4, 38, 98, 573 
2769 DATA 3,93, 42, 76,98, 84, 3C, 3C, 98,98, 3C, 3C, 98, QC, 76, 55D 
2779 DATA 30,88, 7C, FC, 93,42, B8, 60, Cä,58, 18, AC, 84, CS, FB,641 
2789 DATA 1,38, 2C,4C, CO, 34, E4, CB, 45, C7, 76, CF, 87,5E, 39,613 
2798 DATA CF,93, 42,C7,CF,8F, 18, 33,33, 1B,8F,8F, BF, CF, 83, 4D4 
2889 DATA 42,CB, 30, 39, 31,30, 30, 31, 30, 3C, 31,39, 31, 76, 3C, 421 
2818 DATA 97,39,31,3C,93, 42, 76,31, 84,39, 34, 39, 31, 34, 30, 2E4 
2829 DATA 31,34, 76,30,8B,FC, 83, 42, 31, 24, BB, 30, BC, 3C, 3C, 4DD 
2839 DATA ES, 9,98, 79,38, E4, 38, 8C, 34, BB, C8, 41, C7, 76, CF, BB1 
2849 DATA 97, 1B,33,CB,C7,CF, C7, CF, 8F,8F, 33,33, 1B, 8F,CF, 649 
2859 DATA 9F,8F,9B, CF, CB, 3C, 36, 32, 32, 3C, 32, 30, 30, 32, 38, 4FB 
2869 DATA 32,93, 42, 36, 76,30, 84, 38, 32,83, 42,36, 32, 3C, 3C, 2F2 
2878 DATA 32,36, 32,93, 42, 36, 30, 32, 32, 36, 76, 3, 97, FC, B9, 45B 
2889 DATA 66,C4,9C, 3C, 36, 3C, 3C, 78, 8C, 0C, BB,98, 78, 38, BB, 5E8 
2898 DATA C8, 9C, E4, 48,C8, C7, 76,CF,87, 18, 27, CB, C7, CB, CB, BCD 
2988 DATA C7,CF,8F, 18,33, 1B,9F, 4F,8F,CF,DE, 67, CB, 3C, 3C, 5D2 
2918 DATA 33,33, 30, 33,30, 3C, 33,39, 33,93, 42, 36, 76, 3C, 84, 31D 
2929 DATA 39,33, 93, 42, 36,33, 3, 4C, 33, 3C, 33,93, 42, 0, 3C, 2F1 
2939 DATA 39,33, 36, 76,30, 97, FC, B9, AC, B4, 30, 78, 3C, 93, 42, 5A5 
2949 DATA A4,C8,8C,58,64,98, 78, F4, 29, 1C, 26, 48, CB, C5, 76, 6CF 
2958 DATA CF, 87, 1B,8F,CB, C7, CB, 93, 42, CF, 8F,8F, 33, 8F, 27,578 
2969 DATA 4F,9F,4F,9E,67,CB, 76, 3C, 28, TC, 30, 3C, FC, 76, 76,633 
2978 DATA 91,C8,B4,3C,B4, 34, 3C,6C, 88,88, 84, 49, 64,98, 38, B41 
2989 DATA B8,88,9C, CC, 48,88, C7, C7, 76,CF,95, 76, 30, 96, 99, 6F8 
2998 DATA 51,88, 98, A2,99,F3, 76,00,85,54, 2,55, CF, A, DA, 5EF 
3989 DATA 3C, 78, 3C, 30, B4, 3C, 3C, 78, FD, B4, 3C, A4, C4, FS, 38, 738 
3919 DATA 39,98, 9C, 98,60, 4C, CC, CC, 88, 8C, CC, BC, 38, 39, 8B, 628 
3929 DATA 88, 76,C9,84,84,8C, CC, 38, CC, CB, 22, 1B, 76, 76,91, 584 
3839 DATA 33,33, FC, 76, 76,91, 33,FC, #3, 42, BC, 3, 3C, BC, 30, 5EF 
3949 DATA TC, FC, FC, 33, 27,9F, CF, CB, C3,83, 93, 76, 3C, 85, 73, 6EA 
3858 DATA 08,08,F3,51,FF,51,9F, 7B, A2, 88,93, 42, 11, AB, 89, 4EE 
3969 DATA 45,CF,CF,C8,D9, A4, 3C,6C,98,B8, CC, 4C, 64, 38, C, 7BF 
3978 DATA C4, CC, 4C,8C,6C, 84, CC, 8C, 8C, 88, CB, 84, BC, F3, 42, 5F9 
3689 DATA 88, 48, 4C, 49, C9, C4, B4, 78,98, 34, 3C, 79, 78,69, 04,658 





3498 DATA F£,78,8C,88,99,08,48,C8,88,19,76,76,81,B9,FC,GA6 
3199 DATA 83,42,BC,FC, 83,42, 33,9F,4F,4F,C3,C3,83,3C, 53, 56A 
3118 DATA 42,30, 76,00,96,51,76,08,97,54, A8, 15, AD, 9F, 4F,3ES 
3128 DATA 76,CF,04,48,84,0C, C, 84, 84,0C, 76,C9,04,89,06,4FB 
3138 DATA 99,49,44,C8,0C,88,48,84,0C,84,C8, 76,899, 89, 49, 4AB 
3148 DATA C8,8C,64,49,48,C89,09,93,42,48,C9,C9,00,88,04,581 
3158 DATA FC, 33,33, FC, 93, 42,B9,33,33,8F,CF,CB,C7,C3, 93,6F8 
3168 DATA 3C,3C, 28,88, A2,76,80,07,15,7F,2A,08,93,42,7E, 349 
3178 DATA 48,08, A7,0F,4F,0F,0F,CF,CF,4F,8F,4F,CF, 83, 42, 5AA 
3188 DATA 38,C7,CB,C8,84,9C, C8, C8, 76,98, 13,04, 76,9F,96,5B2 
3199 DATA 1B,33,27,27, 76,33,0E,9F,CF, 93, 42,C3, 83,79, 76,428 
3289 DATA 99,19,15,FC, BD, 99, 11,27,33, 76,0F,98,CF,93, 42, SEA 
3218 DATA C7,CF,93,42,C7,76,C3,11,CF,CF,CB,8F,4F,CF, 93, 805 
3229 DATA 42,68F,CF,6F,76,9F, 10,33, 33,8F,4F,CF,CF,C3,43,5EC 
3238 DATA 89,51,F3, A2, 76,08, 0D,7E,B9,22,98,88,11,B9, 76,592 
3249 DATA 76,81,B9,33,33,27,8F,1B,9F,93, 42,9E, 4F, 76,CF, 46D 
3258 DATA 86,03,83,42,C7,13,63,76,C3,86,07,C7,C3,CF,CB, 775 
3268 DATA C7,CF,8F,76,CF,97,9B, 76,CF,99,8F,CF,CF,8F,ÛF, 825 
3278 DATA 9F,33,27,0F,6F,CF,CB,D7,F3, 2A, A2, 76,89, 8A,FF,6B6 
3289 DATA 2A,98,89,54, AA, 76,08,95, 3B,FC, FC, 76, 76,891, 76,539 
3299 DATA 33,96,9F,93,42,5E,3C,27,4F,76,CF,84,6F,4F,CB, 48F 
3399 DATA CB,C7,C3,CB,CF,9F,9F,33,B9, 4F,C7,C7,C3,93, 42, 7DE 
3319 DATA C7,43,42,CF,C7,76,CF,08,CB,67,CF,CF,C7,CF,CF,024 
3328 DATA 6F,9F,9F,33,8F,4F,DF, 7D,FF,76,08,94,7F,FF,BB,64C 
3338 DATA 33,73,608,3F,08,08,51,A2,08,51,FC,BC, AA, 76,89,591 
3349 DATA 86,BB,3C,FC, 7C,FC, 83,42, 76,33, 85,0F,0F,36,3C, 4F4 
3358 DATA 27,4F,76,CF,95,C7,76,CF,95,6F,76,CF,05,CB,CF, 744 
3368 DATA C7,CF,C3,C3,C7,CF,CB, 76,CF,94,C7,CF,CF, 76,C3, A64 
3378 DATA 84,CF,CF,6F,76,9F,94,9F,7C,FB,7F,76,99,11,A2,677 
3389 DATA 98,51,BF,BB, 89, 76, 76,91, 33, FC, 76,99, 99,3B,BC,616 
3398 DATA FC,B9, 76,33,84,36,FC,33,76,8F, 8D, 4F,CF,4F, 76,63C 
3498 DATA CF,85,5E,27,76,CF,96,CB, 76,CF,96,FF, 3C, 3C, 7C, GAD 
3418 DATA FC,FC,F9,F7,BF,F3, 76,98, 14,FF, 76, 76,91, B9, 33, 8FC 
3428 DATA 76,76,91,33,33,B9, 76,33, 95, 73, B3, 76, 76,41,FC, 5C9 
3438 DATA 3C,39,33, 83,42, 77,FB, A2,98,FF, 33,76, 76,81,33,553 
3449 DATA 93,42,FC,FC,FF, 24,09, 15,F7,FF,33,93,42,7F,FF,767 
345 DATA FF,BF,BB,33,33,3C,3C,FC, FC, BF, 7F,933,FF,BF,09,87E 
3469 DATA 15,F3,FF,BB, 33,77, AA, 89, BF, 98, FB, 76, 89,96,55, 6DC 
3478 DATA 76,33,96,FF, 33, 77,BB, 33,37,FF,BB, 73,09, 83, 42, 5EF 
3489 DATA F7,33,33,B9, 33,78, B3,33,FF,BF,B7,3F,FF, 76,33, 886 
3498 DATA 94,22, 76,98,97,33,37,3F,3B,33,77,FC,FC, FD, 33,559 
3598 DATA 93,42,77,76,33,05,FF, 7B,F3, 76,09,96,11,33,77,58E 
3518 DATA FC,FE,FC,BB,FF,BF,2A, 08,08, 15,93F,3B,FF,55,FF,87B 
3528 DATA BF,3F,3F,FF,FF,33,7B,09,F3,3F,FF,33, 33,77, 76, 76D 
3534 DATA 89,06,55,BF,?F,BF,F3,BB,37,7B,A2,00,F3,F3, 33,773 
3549 DATA 77,BB,FF,BF,FF,BB, 33, 76, 76,91, 33,93, 42, 77,FD, 7B6 
355$ DATA FF,BC,FC,FC,BC,FC,FD,FF,FF, BB, 33,93, 42, BB, 33, AB7 
3568 DATA FF,FF,FE,FC,BF,3F,FF,76,33,94,FC,FC,FD,FF,FF, B95 
3578 DATA AA,55,BB,FE,BC,FF,FF,3F,7F,FF,FF, 78, A2, 76,89, 9C1 
3584 DATA 86,51,48,BB, 76,76,01,99,51,F3,F3,B7,22,98,93,512 
3598 DATA 42,51,33,FF,BF,3F,F3, 7F,33,37,3B, 33,33, 77,FF,6B6 
3648 DATA FF,BB,FF,76,33,95,F3,3F,77,FF,3F,F3,FF,33,FF, 972 
3619 DATA BB, 76,33, 96, 76,FF,95,FC,93,42,FD, BB, 33, BF, 3F, 72E 
3629 DATA FF,FF,77,FC,FC,EBC,FF,FF, 76,33,96, 77,3F, 76,00, 982 
3639 DATA 44,15,7B,C3,CF,CF,4F,C3,C3,C7,CB,C3,C3,C7, 8F, 938 
3649 DATA 8F,27,4F,CF,C3,83,42,83,69,3C, 3C,69, 3C, 3C, 96, 4B7 
3659 DATA 69,C3,69,C3,69,C3,76,3C, 98, 7C,FC,B9, FC, 76, 76,857 
3668 DATA 91,FC,BC,B9, 33, 76, 76,91, FC, 34, 3C, 74, 3C, 3C, 78,662 
3678 DATA 76,3C,95,F9,B8,9C, 68, 48,C8,88, 89,09, 49,89,29,63B 
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3688 DATA 99,09,89,04, 49,84,98, 84, 8C,88, 08,48, 80,84, CC, 488 
3698 DATA C3,83, 42,07, 8F,4F, 76,C3,97,8F, BF, 27,4F, CB, C3, 68F 
3788 DATA C3,43,83,6D,69,C3, 6D, 3C, 20, 1E, 76, 2D, 96, 76,30, 4F1 
3718 DATA 99, FC, FC, 33, 33, 76, 76,91,8C, 33,93, 42,31, 3C, FO, 5ES 
3729 DATA 30,3, 42, B4, 78, 79, B4,68, D8, 3C, 78, 1C, 69, CB,23, 684 
3738 DATA 42,88,09,49,88,68,76,08,04,49,84,84, CO, C4, 48, 4FG 
3749 DATA 89,48,C8,84,F9, 76, C3,84,8F,0F, 76,C3,96, C7,CF, 724 
3758 DATA 8F,33, 4F,CB, C3,C3, 83,93, 39, 6D, 6D, 39, 30, 3C, 36, 5E2 
3768 DATA 76,39, 86, 76, 3C, 89, 7C, FC, 33,27, 27,FC, 33,33, 32, 4FD 
3778 DATA 30, 36, 3C, 36, 76, 3C, 95, 78, B4, 30, 93, 42, 9C, ED, 76,53€ 
3789 DATA CP,04,99,93, 42,C8, C9,89, 09, 49, 49,09, 18,E4, 8C, 499 
3798 DATA 4C, 98,98, 48, C4, 78,83,C3,03,42,6F, 27, 76,C3, 87,551 
3899 DATA CF,CF,1B,4F,CF,C3,C3,83, 83,39, 39, 3C, 39, 3C, 30,642 
3818 DATA 36, 30, 33, 39, 33, 39, 39, 76, 30, #7, BC, 30, 7C, 33,93, 3E3 
3829 DATA 42, 1B,33, 33, 32, 36, 3C, 34, 3,03, 42, 78, 3C, 93, 42,315 
3838 DATA 4C, 39, 39, 80, 6C, 1C, 28, CB, 49,49, 60,00, 49, 00, 88, 498 
3849 DATA #9,88,89,48,89,99,F9,B9,64,C9,0C,96,B4,94,6C, 594 
3858 DATA 93,C3,93, 42,98, B9, C3,C3, CB, 76,C3,84,CF,6F, 1B, 766 
3868 DATA 4F,CB,C3,C3, 83,93, 76,60, 84,30, 3C, 1E, 3C, 2D, 3C, 4CB 
3878 DATA 2D,93, 42, 76,30, 06, 7C, FC, 3C, 30, B9, 33, 33, 27, 1A, 47A 
3888 DATA 33,34, 30, 3C, 9C, 3C, 3C, 76, 38, 78, FO, F8, 76, 3,05, 5AA 
3898 DATA 79,8, 48, C0, 49, 48,98, 48, 09,88, C0, 89, 49,89, C4,624 
3999 DATA B4,F4,78,D8, 88,49, C8, 84, 4, 8C, 03,43, C3, C3, 6F, 767 
3914 DATA 39,C3,CF,CF, 76,C3,94,C7, CF, 1B, 4F,CB, CB, 83, 93, 7F3 
3929 DATA 93,69,69,C3,69,3C, 69, C3, 69,C3, 69, C3, 69, C3, 76, 763 
3938 DATA 30,96, TC, 7C, 3C, 30, 39, 27, 33,33, 1B, 32, 3C, 30, 78,385 
3949 DATA 34,E4,78,B4,F0,F4, 39, 4,98, 39, CC, 0C, 98,58, 69, 7EB 
3954 DATA 98,89,C8,88,C8,48, 69, 28,89, 08, 49,09, 84,8, 0,634 
3969 DATA F,D8,C8, C8, 89, 84, 49,C8,93,93,43,C3, CF, 4F,C3,7C1 
3978 DATA CF,6F,CB,C3,93,42, CF, CF, OF, 4F,C7,CB, 83,83, 83, 7C8 
3989 DATA 69,96, 30, C3, 76,30, 8F, BC, 3C, FC, 3C, 7C, OF, 33, 27, 5D4 
3998 DATA 1B,CC,6C,F8,83, 42, CC, 38, 39,98, B9, BC, E4, 79, BY, 78C 
4988 DATA FO,E4, 79,64, 39,B9,64,8C, CAC, CB,48, E9, 89, 48, 749 
4918 DATA 4C, CB, 18, 3, 3C, 78,98, E4, 48,68, 80, 49,89, 83, 83, 4DE 
4929 DATA 43,C7,CB, CB, C3, CF, 76, 76,81,CB, C3,C3, CF, 43, 42,884 
4938 DATA 8F,4F,CF,CB,C3,83,43,3C,C3,C3, 96, 76, 3C, PF, BC, 716 
4948 DATA 3C,FC, BC, 7C, 33,33, 8F, 98, 3C,6C, FA, 80, B9, 34, 30, 6C1 
4958 DATA B9,B4, 79, E4, 38, B4,98, CC, 18, 34,E8, C8, CO, 8C, 48, 898 
4968 DATA 84, BC, 4,98, 28,99, 64,98, F9, F4, B9, F9, B4, CC, E4, 894 
4978 DATA C8,89,90,48,00,03,93,43,76,C3,84,C7, 76, 76,81, 4C2 
4988 DATA CB,C3, 83, 42,CF,6F, 1B,4F,CF,C3,C3,83, 93, 76, 3C, 728 
4999 DATA 15,FC, 76, 76,91, 3C, 39, 33,66, 3C,64,5C, 3C, F8, 30,578 
4198 DATA B4, 38,80, B4, 34, 39, 20, B4, 98,98, 64, 3C, 78, BB, 48, 689 
4118 DATA 9C, OC, 48, CB, CB, 49,98, 08,84, 48, 84, DB, C, 78, 3, 52C 
4128 DATA 4C, A4, 80, CA, 19,93, 42,03,93,43,C3,03,C3,93, 42, 498 
4138 DATA 76,76,81,4B,C3,C3,C7,CF,#F, 1B,4F,CB,C3,C3, 83, 721 
4148 DATA 93,76,3C, 84, 76,00, 84, 9F, 76,09, 07,54, 24, 15,CF, 357 
4158 DATA 8E, 30, 3, 90, 76, 3C, 95, B4, B4, 3C, 38,64, 18, B9,64,5C5 
4169 DATA 39,98,C9,CC, 8C, BC, CC, CC, #8, OC, 4C, 8C, 38, 48, DB, 738 
4178 DATA F9,64,79,F8,F8, 64,48, 44,98, 98,89, 22, 76, 33, 85,684 
4188 DATA 76, 76,82, FC, #3, 42, BC, 3C, 7C, FC, 3C, 3C, FC, FC, 33, 742 
4198 DATA 27,27,CF,CF,C3,83,83, 76, 3C, 04, 39, 88, 83, 42, 15, 4FE 
4298 DATA 51,F3,51,3F, 78, A2, 80,03, 42, BC, AB, 99,6F,CB,CF,G6A3 
4218 DATA CF,48, 79,D8,58, BB, 24, 8C, 18,64, 38,80, 18, CC, 4C, 57F 
4228 DATA 4C,CB,84, CC, AC, 4C, CB, CA, P4, 0, 8C, B4, 89, 48, BC, 5AB 
1238 DATA C9, 48,34, B4,68, B8, 3C, 78,34, 3C, Ed, 79, 78, CB, 49, 708 
4249 DATA 49,C9,83,42, 8C, 48, 84, 76, 76,01, 76, FC, 97,33, 33, 469 
4258 DATA 8F,CF,4F,CF,C3,C3,3C, 93, 42, 79, 76,08, 8E,55, 22,577 
4268 DATA 15,27,8F,0F,4F,76,CF,84,0C, 0C, 48, 84, 48, 0C,CB, SEA 


4278 DATA 84,C9,C9,86,48,C8, 88,48, 48,6C,89,C9, BC, AC, B4,66C 
4289 DATA 8C,76,C9,08,89,99,84,64,89,C9,93,42,09,89,C8,517 
4298 DATA 49, 76,90,04,19,B9, 33,33, 76, 76,81,FC, 33,76, 76,4F1 
4399 DATA 91,33,33,9F,CF,CB,C3,C3, 83,30, 3C, AA, 51, A2, 76,624 
4319 DATA 98,9D,FE, 28,98, AF, 76,8F,94,CF,8F,CF,4F,76,CF,62C 
4328 DATA #4,CB,C3,CF,C9, 84, 48,C9, C8, 76, 99, 0D, 49, 76,08,GA6 
4338 DATA 95, 4D, 76,9F,05, 27,0F,33,33,27,1B, 76,33, 8D, 8F,27F 
4349 DATA CF,CF,C7,C3,83, A2, 76,99, 19,55, FC,F9, 99, 11,33, 761 
4358 DATA 33,27, 76,8F,97,CF,4F,CF,CF,C7,CF,CF,CB, 76,C3, BOB 
4369 DATA 8F,CF,CB,93,42,C7,CF,4F, 76,CF,05,6F, 76,9F,0E,63F 
4378 DATA 1B,9F,33,33,9F,4F,CF,CF,83,93,09,51,F3, A2, 76,56E 
4388 DATA 98,0B,A2,09,F6,B9, 22,99, 09,11, 33,93, 42, B9, 33,3F3 
4399 DATA 1B,9F,9F,27,8F,9F,0E,4F,CF,CF,4F,76,CF,84,C3,564 
4499 DATA C3,C7,C3,4B,76,C3,86,C7,CB,C7, 76,CF,9C,8F, 76, 886 
4419 DATA CF,9C,6F,0F,9F,27,27,8F,CF,8F,CB,3C,51,F3, A2,638 
4429 DATA 76,98,89,15,BF,3F, 89,99, 14,22, 76,08,95,3B,FC, 37A 
4439 DATA 93,42,B9, 33, 76, 76,91,33,93,42,76,0F,94,BC, 39,414 
4449 DATA 4F,76,CF,94,9B,2D,C3,CB,C3,93,42,8F,27,33,33,612 
4459 DATA 27,CF,CF,C3,CF,C3,93,42,C7,CB,C3,C7,CF, 83, 42, 88F 
4468 DATA CB,C7,76,CF,85,03,C7,C7,CF,CF,0F,93, 42, 1B,0F, 749 
4479 DATA CF,DF,7C,FF,3F,FF,77,FF,99,42,BB, 33, 24,51, 2A,7B5 
4489 DATA 99,93, 42,A2,89,15,76,76,891,F7, 28,76, 90,96, 15, 399 
4498 DATA 36,3C, BC, 7C,FC, 93, 42, 76,33,84, 1B,8F, 33, 3C, B9, 4EA 
4598 DATA 8F,76,CF,8B,8F,4F,76,CF,97,CB,C3,C7, 76,CF,95,6AB 
4519 DATA C7,CF,93,42,C7,CF,CB,C3,C7,CF,93,42,76,8F, 94,763 
4528 DATA SE, FC,FB,F3,76,99, 11,3B, A2,99,51,BB, 76, 76,01,6E5 
4538 DATA B9, 7F,BB, 33, 76,99, 99, B3, 3C, FC, 93, 42, 33, 33,76, 5B1 
4549 DATA 76,81,3C,B9, 76,8F,87, 18,33, 33, 27,0F, 93, 42, BF, 383 
4558 DATA 8F,CF,4F,CF,03,42,1B,27,76,CF,49,FF, A2, 89, 15,587 
4569 DATA 3F,BE,3C,3C,BB,FF, BB, F3, 3F,F3, 76,09, 14,54,FC, 7E9 
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4579 DATA 93,42,76,33,95, 76, 76,92, 33, 08,99, 15,33,33,FC, 38B 
4588 DATA 3C,FC,76,76,81,FC, 76,33,87, 76, 76,91, 3C,3C, 33,569 
4598 DATA 33,FF, AA, 15,7B,FF, 76,33,94,7F,33,33,FF,FC,FC, 7F4 
4699 DATA BC,7C,FC,76,FF,94,77,FD,FF,3F,B3,77,BB, 33,77, 8EE 
4619 DATA 33,3F,2A,55,7F,FB, A2, 76,08,05, 76, 33,85,FF, 33,568 
4628 DATA FF,33,77,33,77,BF,BF,3B,33,FB, 2,90, BB, 33, 33, 6FD 
4639 DATA 77,FF,BB,37,33,FB,F3,87,FF,BB, 76,33, 84,37, 2A, 808 
4648 DATA 76,88,94,15,7F,37,3F,3B, 33,93, 42,FF, F,77,5A9 
4658 DATA 33,33, FD,FF,BB, BB, 33,33, 76,98, 8A, 11,77,FF, 93,648 
4668 DATA 42,BB,33,33,77,3F,88,03,42,15,33,15, 
4679 DATA F3,7B,3F,BB,37,A2,B7,B7,FF,BB,933,37, 
4689 DATA 99,83,42,55,FB,B7,77,F3,3B,F3, 76,09, 
4699 DATA 93,42,BB,33,93,42,FF,FF,33,77,77,FC, 
4769 DATA 3C,7C,FF,FF,BF,3F,FF,BB, 77,BB, 76,33,95, FE, FD, 949 
4718 DATA BB, 33, 77,33, 77,77, 16,FF,84, 08,93, 42,BB,33,FE,638 
4728 DATA FC,B9,37,3F,BB, 77, 7B, A2, 76,09,96,3B,33,09,51,5B7 
4738 DATA 99,F3,F3, 22,98,03,42,55,77,BF,2A,08,80,51,7F, 4D2 
4749 DATA 33,3F,33,37,33,93,42,FF,BB,33,93,42,37,B7,00,474 
4758 DATA 15,3B,77,BF,7B,F7,9F, 7F,33,BF,BB, 76,393, 06, 77,689 
4769 DATA BE,3C,FC,76,FF,84,BF,09,09,15,FF,BB,FF, 33,76, 7A5 
4778 DATA 76,91,FC, 76,33,95,77,33,FB, 88,93, 42,B7,80, 80, 4C2 
4788 DATA BF,69,C3,69,C3,3C, 3C,69, 93, 42,C3,69,C3,69, C3, 758 
4798 DATA 69,03,69,C3,FC, 33,43, 42,27,8F,4F,4F,8F,4F,9E, 59C 
4898 DATA 3C,F8,78,8C,CC,CC, 18,39, 39,64, 48, 48,64, 48,CB,6C9 
4819 DATA C9,69,49,84,9C,18,64,0C,B8,98, 84,39, 4C, 24, 4B, 44C 
4829 DATA C8,76,89,05,C8,79,46,49,19,98,91,93,03,43,C3,418 
4838 DATA C7,CF,C3,C3,CF, 76,C3, 86,83, 2D, 3C, 93, 42, 2D, 3C,6C4 
4649 DATA 3C,1E,3C,3C, 2D,8F, 76,2D,84,3C,1E,3C, E, 2D, 2D, 203 
4858 DATA B9,33,33,9F,27,9F,0F,4F,8F, BF, 1C,3C, 2C, 79, 78,344 
4869 DATA BB,CC,8C,CC,8C,BC,CC,8C, 8C, 9, 48, 76, C9, 95, 49, 69F 





4878 DATA 98,60, B9,8C, 96, 49,98,CB, CB, 88, 76,88, 84, 49, C4, 6B6 
4889 DATA 64,8C, 84, 44,59,89,93,93, 43, C3,C7, CF, C3,CB, CB, 633 
4898 DATA C3,C3,CB,C3, 93, 42,83, 39, 33, 3C, C, 39, 33, 30, 36,59€ 
4988 DATA 30,30, 76,39, 86, 30, 36, 3C, 36, 39, 39, FC, 33, 93, 42, 3F7 
4918 DATA 27,76,9F,04,4F, OA, 78,98, BB, 38,80, 8C, 8C, 4C, 8C,585 
4928 DATA 4C, CC, 8C, 4C, 48, C9, 8C, CA, CO, 88, 80,08, C4, CB, 39, 6C9 
4938 DATA 24,09,99, 44,00, 88,68, 08,89, 48, 80,08, C4, 18,69, 2F8 
4949 DATA 76,08,84,03,83,C3,83,42,6F,C3,C7,C3,C3,C7,67,655 
1958 DATA C3,C3,83,93, 30, 39, 3C, 93, 42, 39, 0, 36, 39, 33, 39, 452 
4968 DATA 93,42, 33,39, 36, 3C, 36, 3C, 36, 39, 39, FC, 33, 93, 42, 381 
4978 DATA 27,1B,9F,CF,9F,4F,CF, CE, 38,64, CC, 4C, 8C, BC, 84, 5E3 
4989 DATA AC, 4C,CO, CA, 84,48, C9, 84, 8C, 76, CD, 04, 6B, CB, 30,626 
4998 DATA CC, 98,0, 04, 48,88, CB, 68,03, 42,49, 49,C0,58, 8, 441 
5908 DATA 99,93,42,88,83,43,C3,C3,C7,87,CB,C3, 93, 42, C7, 679 
518 DATA ED, C3,C3,83,93, 30, 2, 3C, LE, 3C, 2D, 3C, LE, 3, 3C, 4F7 
5828 DATA 76,2D,86, 30, LE, 3C, LE, 20, 2D, 7C, 76, 33, 04, 76, 0F, 365 
5834 DATA 96,40, 74,64, 80, OC, 4C, 8C, CC, BC, AC, 8C, 48, 76, CO, 4C4 
5949 DATA 84,99,C9,76,89,05,CC,64, 00,09, 84,99, CB, CB, 08, 4F3 
5454 DATA 93, 42,84, CP,88, C8, 48, 76,08,84,91,93, 83, C3, C3, 528 
5968 DATA 87,CF,C3,93, 42, C7, CB, C3, C3, 93, 93,69, C3, 3C, 96, 77A 
5878 DATA 69, C3, 3,96, 3C, 3C, 76,69,96, 30,96, 69, C3, 69, 69, 62B 
5984 DATA 39,33, 27,33, 27,0F,8F,4F,9F,CF,8F,0E, 18,64, 4C, 31D 
5498 DATA 4C,48,C9, 0C, 80, CB, 0C, 76,C8, 66,88, 88, 89, C9, 89, 6F4 
5199 DATA CB, 44, 18,09, 00,84, C9, 93, 42,08, 93,42, CO, CB, DB, 46A 
5118 DATA 94,96,96,03,42,91,03,93,42,C3,C3,C7,8F, CB, 76, 437 
5129 DATA C3,06,43,83, 76,3, 16, 7C, 33,93, 42,27, 0F,0F, 4F, 35F 
5139 DATA BF, 4F,6F,0F,E, 8C, CC, BC, 48, C4, 24, 48, CO, B4, CS, 76A 
5148 DATA 93, 42,84, C9, 00,80, 09, 76,49,05,99, 89, 98, CB, 48, 4DC 
5158 DATA 49,89,99,00,48,CD,48,09,00, 76,58,85,03,83,C3, 358 
5168 DATA 93,42,C7,8F,C7,76,C3,45,83, 43,83, 76, 3C, 16,FC, GAD 
5178 DATA 33,93,42,0F,93, 42, 4F,6F,4F,CF,0F,64,4C,64,64, 44F 
5189 DATA 8C,84,8C, 48,48, 8C, 84, 4C, 48, CA, 89, 76, 96,05, C8, 58B 
5198 DATA 94, 48,04, CC, 48, 48, C8, 89, 88, 49, 88, C9, 49, BC, 76,576 
5298 DATA 8,87,93,83,43,C3, 03, 42, 6F, 4F,CB, 76,C3,85,C7,586 
5218 DATA 83, 76,30, 16, 7C, 33,93, 42, 18, 76,8F, 94, 4F,CF, BF, 498 
5228 DATA CE, 24,98, 39,64, 34, 48,84, 48, CA, CO, B4, 48,84, 48, 67A 
5238 DATA C9, 76,98,05,48,0C, 48, 49, 8C, 88, 88, 76,80, 84, 4C, 369 
5249 DATA C9,88,76,89,85,01,93, 43, 42,43,C3, 93, 42, 8F, OF, 3F5 
5259 DATA CF, 76,C3,95,96, 88,69, C3, 30, 3C, 69, C3, 69, C3, 69, 793 
5268 DATA C3,69,C3,69,C3,69,C3,69, 96, 3C, #3, 42, 7C, FC, B9, 7F8 
5278 DATA 33,18, 27,0F, 76,30, 06,08, 08,F3, A2, 76,88, BB, 7E, 3CD 
5289 DATA A2,15,CF, 1C, 30,60, 76, 3C, 85, F8, B4, 30, 78,98, BC, 67D 
5208 DATA 4C, 38,24, CC,CC, CE, CC, BC, BC, 4C, 4C, 98, AC, 4C, CB, 6D4 
5308 DATA 24,19,F8,F9,3C,98, 76,F4, 84, 24, CC, 49, 88, 28, 76,649 
5318 DATA 76,81, 33, 32,38, 31, 76, 76,01, 33,33, FC, 83, 42, 3C, 40D 
5328 DATA 7C,FC,3C, 30, 7C, FC, 33, 33, 8F, 4F, C7, C3, 83,93, 76,682 
5334 DATA 3C, 94,39, 09,93, 42,15,F3,08,51,3F,3F, A2, 89, 83, 33A 
5349 DATA 42,76,76,81,28,09,E7,4F,0F,CF, 48,84, 8C, 18, 24, 4FF 
5358 DATA 4C,4C,98,8C, 18,80, C4, CC, 4C, 4C, BC, 84, AC, 93, 42, 529 
5368 DATA 49,C4,49,84,8C, C9, 08,84, 8, 49, GC, 18, 38, CB, 78, 474 
5378 DATA 3C,6C,B4, 3C, CC, 3C, A4, 48,48, CB, CO, 88, 89, 8, 93,647 
5388 DATA 42, 19,FC, 76, 76,81, 76, FC, 05,33, 27,9F,6F, CF, CB, 64D 
5399 DATA CB, C3, 3C, 43, 42, 73, 76, 48,08, A2, B7, 76,98, 4,51,524 
5498 DATA 22,15,27,8F, 83, 42,CF,93, 42, 6F,0F,9F,CF, 48, 0, 396 
5419 DATA 43, 42,C8,93,42,08, 48,69, 08, 9,68, 40, 80, 49, 84, 49E 
5428 DATA 9C,84,8C, C9, 93, 42, 8C, 83, 42, C9, 76,99, 04, 0C, 08, 349 
5438 DATA C,93, 42, 76,98, 98,45, FC, B9, 33, FC, FC, 76, 33, 84,655 
5448 DATA 8F,CF,CF,C3,C3,43, 30, 3C, 2A, F3, F3, 76, 08, 8D, 7E, 6BF 
5459 DATA 46,99, 2F,0F, 93, 42,CF, 93, 42,6F, CF, 8F,CF, 93, 42,548 
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5469 DATA CB,C3,C3,CB,C9, 00, 48,89, 76,08, 8F,84,9C,CF,CF, 763 
5478 DATA 4F,76,9F,05,27,0F, 1B, 33,33, 18, 76,93, D, 8F, 4F, 2BF 
5489 DATA CF,C7,CB,83,76,98,11,11,FC, BD, 89, 11,33,33,9F,5BB 
549$ DATA 33,76,9F,96,CF,4F,CF,CF,C7,CF,93, 42,76,C3,9F,69D 
5598 DATA C7,CB,CF,CB,C3,C3,CF,C7,CF,93, 42, 4F,8F, 76,9F, 8BF 
5518 DATA 85,CF, 76,6F,99, 1B, 33,33, 9F,0F,CF,CF, 683,93, 00,425 
5528 DATA 69,51,A2,51,76,99, 0A, A2, 98,54, B9, 7B,99,09,55,443 
5538 DATA 76, 76,91,33,36, 7C, 76,33,94,27,0F, 83, 42,CF,9F,3D8 
5549 DATA CF,4F,CF,93,42,C3,C7,CB,C7,8F,CB, 76,C3,97,CB, 833 
5558 DATA CF,93,42,4F,CF,CF,CB,93,42,C3,76,CF,19,8F,9F,6C7 
5569 DATA 6F,1B,27,8F,CB,CF,DF,3C, F3, A2, 76,99, OA, 7F, 2A,5D3 
5578 DATA 51,99, 99, BE, AA, 76,98,05,11,FC,93,42,76,33,05,434 
5589 DATA B9,76,9F,94,36,3C, 27,76, CF,44,9B,2D,CF,C3,CF,64D 
5599 DATA C3,C3,5E,B9, 76, 76,91,B9, 4F,CF,CF,C7,CF,C3,C7,959 
5699 DATA CF,C3,07,CF,CB,76,CF,97,C7,CF,CF,C3,CF,C3,CF, ACB 
5619 DATA CF,6F,9F,9F,1B,9F,CF,DF,BE,FF,7F,FF,BF,BF,3F,B4C 
5629 DATA FF,BB,BB,99,B7, A2, 76,99,95,55,B9,51, A8, 76,0A,6C6 
5639 DATA 97,77,3C,FC, TC, FC, FC, 89, 76,33,94,27,9F,8F,BC,691 
5649 DATA 39,6F,4F,76,CF,99,8F,8F, 76,CF,97,CB,C7,CF,C3,6F3 
5659 DATA 8F,4F,C7,CF,CF,C7, 76,CF,94,CB,C3,93, 42,CB,CF, BC8 
5668 DATA CF,9F,93,42,CF,BE, FC, FF, 78, 76,99,11,55,22, 90,624 
5678 DATA 99,55, 76, 76,91,B9,B7,FF, 76, 76,81, 76,99, 9A,B7,5D5 
5689 DATA 36,FC,FC,B9, 33,36, 7C, 39, 76, 0F, 97, 1B, 33, 1B, 27,521 
5698 DATA 76,9F,96, 76,CF,94,0F,9F,76,CF,95,BF,F3, 76, 49,564 
5799 DATA 86,15,7F,FE,FC,B9,FF, 33, F9, 7F, 7B, 76,00, 14,F6, 7F2 
5718 DATA 3C,7C,FC, 76,33,95, 76, 76,81,FC,B9,37,89,89,11,54C 
5728 DATA FD,FD,FC,FC,3C,77,33,FC,FF,FF,33,FC,FC, BC, 7C, B35 
5738 DATA FC,B9, 33,33, AA,FF,FF,BB, 33, 77,FF, 33,33, 77, 33,837 
5749 DATA 93,42,FF,3C,FC,FF, 76,33, 94, 77,FF,93, 42,33,93,619 
5758 DATA 42,FE,FC,BB, 77,BF,98,3F,BF, 76,08,05,33,77,33,683 
5769 DATA 33,77,FF,77,FF,33,BF,3F,9F, 78B,F3,B7, 7F,BB, 33,821 
5778 DATA 76,76,891,FC,B9,BF,51,BB,FF,77,FF,FC,3F,7B,FF,997 
5789 DATA 33,BB,FF, 76,33,95,3F,B3,99,3F, 7F,33,93, 42,37, 4FA 
5798 DATA FF,33,BB, 77,FF,B9, 33,33,FF,FC,3C,FF,FF, AA, 76, 9D7 
5889 DATA 89,99,15,3F,BB,33,FF,FF, BB, 33, 33,3F, 93,42, 24,518 
5819 DATA 99,03, 42,BF,2A,51,2A, 90,93, 42, A2,B7, 76, 76,81,434 
5829 DATA 7B,F3,B7,FF,BB,BB,FB,99,11,37,B7,F3,09,98,F3,87A 
5638 DATA 89,15,2A, 76,99,98,B3,R9,33,FF,FF, BB, 33, 53, 42,58D 
5849 DATA 77,FF,76,76,81,FC,B9,FF,3C,FE,FC,FE, FB,98,F3, A39 
5858 DATA 7F,FB,FF,BB, 33,33, 77,FF,FF, 7C, FD, BB, 76,33, 84,8F8 
5869 DATA 77,BB,33,33, 77,24, 09,93, 42,FF, 93, 42, BB, 3F, 3B, 4F7 
5878 DATA 33, 77,BF,F3, 76,09,08,55, 33, 08,83, 42, 3F, 7B,B7,518 
5888 DATA A2,09,98,FF, 7B, A2, 76,09,84,F7,3F,93, 42, 76,33,55C 
5898 DATA 84,77,FF,BB, 33,33, A2,08,83,42,F3,B7,37,BF,3F,661 
5999 DATA 93, 42,33,93, 42,77, BB, 33,93, 42, 77,FC, BC, FC, FD, 68F 
5919 DATA FF,93,42,BF,2A,99,93, 42,15, BB, 76,33,95,77,FF,566 
5929 DATA FF,BB,77,33,33, 77, 2A,09,51,F3,99,3F, 33,27,CF,5E4 
5938 DATA 83, 42,6D,CB,C3,C7,C3,C3,CB, 96,88, 43, D6, 3C, 3C, BA 
5948 DATA 8C,38,B9, 48, C9,93, 42,91, 76,83,07,83,76,43,07,43D 
5958 DATA C7,8B,93,93,C3,03,42,87,C7,C7,CF,CF, 76,8F, 94, 69C 
5969 DATA CF,CB,C3, 76,83,94, 76,3, 11, 7C, 7C, B9, 33, 33, 76,62A 
5979 DATA 76,91,3C,7C,CF, 4F, 1B,33,27,CF,93,42,CB,CB,CF,63B 
5989 DATA C3,83,42,C7,C3,83,C3,B4,3C, 38, 4C, 69, 49, 76, 38,692 
5999 DATA 94,93,93, 42,61, 76,93, 0C,DE, 88,93, 76,C3,05,C7,443 
6899 DATA CF,CF,6F, 76,9F,94,CF,CB, C3, 76,93,94, 76,3C, 11,653 
6819 DATA FC,93,42,33,33,FC,3C,B9,CF,9F, 76, 76,91, BC, 27,646 
6929 DATA CF,93,42,CB,CB,CF,CB,C3,C3,87,4F,C3,C6,3C, 3C, 8A1 
6439 DATA 6C,58,68,84,24,CC, 4C, 4C, 92,93, 08, 76,93, 8D,9E, 419 
6949 DATA E9,43,76,C3,85,C7,CF,CF, 76,9F,95,4F,CB,C3,C3, 7F9 





6858 DATA 43,93, 42, 76,30, 11,FC,BC, FC, 33,36, 3C, 3C, ED, CF,65C 
6969 DATA 8F,76,76,91,3C,67,9F,CF,CF,C3,C3, 1B,C3,93,42,675 
6878 DATA LE, 27,C3,96, 3C, 3C, 24, DC, 98, C4, 88, 76, 98, #4, 76, 55A 
6989 DATA 93,99, C3, 76,83,95, 1E,CB, 43,76,C3,94,C7,CF,93,54F 
6898 DATA 42,0F,93,42,1B,9F, 4F,CB,C3,C3,83,93, 42, 76, 3C, 45A 
6199 DATA 19,7C,FC, BC, 3C, AD, 36, 3C, FC, AD, 4F,9F, 76, 76,91,693 
6119 DATA 3C, 2D,6F,CF,CF,CB,CB, 36, 4B,C3,C7, LE, 6D, C2, 34, 7B8 
6129 DATA 3C,3C,8C,74,C9,4C,C8,C9, C9, 89, 92,93,92,09,91,554 
6139 DATA 76,93,95,43,C3, 03, 42,43, 83,93, 4B, 43, 76,C3, 84, 4ED 
6149 DATA CF,93,42,6F,0F,9F,27,33,0F,0F,CB,C3,C3,83,03,519 
6158 DATA 93,76,3C,9F,7C, FC, FC, 3C, 3C, 2D, 76, 76,81, 3C, 33, 539 
6169 DATA 4F,CF,CF,36,3C,6D, 76,CF, 94, CB, BC, CB,C3,C7, BC, BAD 
6178 DATA 69, C3, 3C, 3C, 38, 9C, 38, C8, 18,48, 8C, 93, 42,89, 53, 39D 
6189 DATA 92,91,81,76,93,95,43,C7,CF,C3,C7,C3,C7, CB, 76,6B9 
6199 DATA C3,84,CB,CF,93,42,8F,9F,27,33,27,33,8F,CF,C3,599 
6299 DATA C3,83,93,93,76,3C, 11, 7C, 3C, 30, 27, 76, 76,81,FC,513 
6219 DATA 33,9F,0F,4F,1E, 30,67, 76,CF,94,C3,FC,C3,C7,C3,6B6 
6229 DATA BC,63,D9,3C,3C,EC, 5C, AC, 84, CC, C9, 98, 08, 84,02,679 
6239 DATA 93,92, 92,76,93,97,C3,6F,4F, 1B,4B,C7, 76,C3, 5, 493 
6249 DATA CB,CF,83,42,0F,9F, 1,33, 27,33, 9F,CF,C3,C3,83,58C 
6258 DATA 43,83, 76, 3C,0F, 7C, BC, FC, 3C, BC, 27,5E, 39, 33, 27,59B 
6269 DATA 4F,CB,9E, 30, 4B, 76,CF,94,C3,6F,C3,C7,CB,D6,C2,8C7 
6278 DATA 96, 3C,3C,24,1C, A4,C4,CC, CS, 88, 49,84, 93,92, 82,58D 
6289 DATA 93,91,76,93,85,91,93,C7,9F, 1E, ED, 76,C3,95,CB,479 


& Qt 6298 DATA CF,CF,6F,9F,93,42, 76,33,94,8F,CF,C3,C3, 83, 93,618 
©. 6399 DATA 93,76,3C,13,FC,9F, 18,27, 36,39,CF,CF, OB, 7C, 76, 5AF 
——___ 6319 DATA CF,95,CB,CB,C3, 93, 42,C7,C8,9C, 3C, 3C, 8C, 3C, 69, 6B5 


6329 DATA 84,8C,84, 89, 49,0C, 09, 76, 83, 0B, 43,6F, 36, 6D, 76, 4D8 
6339 DATA C3,84,76,CF,04,9F,93,42, 1B,33,03,42,CF,8F,CF, 4A4 
6349 DATA CB,C3,C3,93,93, 76, 3C,8F,FC,37,B3,BC, 33,27, 9F,623 
6358 DATA 9F,76,76,91,7C,CF,93,42, 4F,76,CF,87,C7,C3,03,5B4 
6369 DATA 42,B4,E9,B4, 78,8, 7C,69, 84,8, C9, 89,98, 76, 3C,GEC 
6378 DATA 96,08,99,F3, A2, 08,93, 42,3F, À2,99,93,42,FE, 69,494 
6389 DATA 15,9F,3C,3C, F4, 3C, 78, 3C, 3C, 38, 79, 3C, 78,98, CC, 688 
6394 DATA 24,4C,98,CC,93,42,84,CC,8C,8C,CC, 80, 88,80, 8C,5F1 
6499 DATA 84,48,84,79,F9,B4,69,8C, C, 9C, 84,C8, 90, C9, 48,6BC 
6419 DATA 69,89, 48,90,08,94, 31,33, 33,89, 76, 76,81,FC,BC,551 
6429 DATA BC,FC,FC,3C, FC, 33, 83, 42, 0F, 4F,C3,C3, 83,93, 76, 744 
6439 DATA 3C, 84, AA, 76,98,05,7F,51,3F, BF, A2, 80,93, 42, 76,499 
6449 DATA 76,01,28,09,AF,4F,BF,CF,8E,0C, C9,C8, 18,8C, 24, 5DD 
6458 DATA CC, 48,84,84,C4,CC, 4C,C4,C8,C4,CC, 84, 8C, C9, 89,964 
6469 DATA 94,84,9C,64,89,84, 4C,99,C9,98, 79,64, 4C, 78,F,5Cÿ 
6479 DATA 3C, 78, 1C,3C,6C,C8,48, C8, 76,88,86, 11,FC, 33, 76,572 
6489 DATA FC,95,33,27,8F,4F,CF,CF,CB, 83, 3C, 93, 42,22, 76,5BE 
6499 DATA 99,98,FF,FF, AA, 98,93, 42,11, AB,15,27,8F, 76,CF,53E 
6599 DATA 96,4F,CF,CF,48,84,84,48,C9,C4, 89,C9, CD, 48,89, 7CB 
6518 DATA 99,69,98, 90,49, 48, 48,49,C8,48,76,C8,84, 76, 89, 448 
6528 DATA 66,48,76,C9,85,76,80,07,04, 76, 76,01, 33, 76, 76, 48E 
6538 DATA 91,FC,FC, 33,93,42,27,4F,CF,CF,C3, 03,43, 3C, 70,697 
6548 DATA 51,F3,F3,76,89,88, A2, 76, 99,94,55,22, 08, A7, 76,565 
6558 DATA 9F,94,CF,9F,93,42,CF,4F,CF,93,42,C3,C3,CF, 48, 695 
6569 DATA C8,C8,99,93, 42,88, 76,89, 99, 49,84,C3,C3,C7,CF,G6A4 
6578 DATA 83, 42,6F,76,9F, 99, 1B,27,27,33,27,8F, 76,33, 86,2E5 
6584 DATA 8F,4F,CF,CB,CB, 83, 76,99, 11,54, 7C, BD, 9,55, 33,5E2 
6598 DATA 93,42,B9,27, 76,9F,96,6F,4F,76,CF,86,CB, 76,C3, 5DD 
6699 DATA @D, 76,CF,44,C3,C7, 76,CF,07,8F, 76,0F,0F,33,43,5BS 
6618 DATA 1B,0F,CF,CF,C3,03, 08, 08,51, A2, 76,08, 8A,51, A2, 4F4 
6629 DATA 99,54,BD,99, 83, 42,55, 76, 76,91, B9, 36, 7C, 33,33, 469 
6639 DATA 1B,33,33,9F,93, 42,CF,6F,8F,4F,76,CF,85,C3,C3,561 
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6649 DATA CF,8F,CB, 76,C3,95,CB,C3,CF,8F,0F,8F, 76,CF,07, 7BD 
6658 DATA C7, 76,CF,0E,9F, 99, 42, 1B,27,8F,4B,C7,D7, 7C, 76, 59A 
6669 DATA 98,8C,BF,99,51,99, 99,36, 22, 76,99,95, 11, 76,FC, 372 
6679 DATA 94,33, 33,B9, 33,33, 9F,9F, 1B,9F, 76, 76,81, 3C, 27,321 
6688 DATA 4F,CF,43,42,DE,6D,C7,C3,CB,C7, 8F,3C, B9, 33, 8F, 799 
6699 DATA 76,CF,94,76,C3,84,CB,C7,C3,C3, 76,CF,85,CB, CB, 87E 
6798 DATA 8F,4F,CB,C3,CB,C7,CF,CF,68F,9F,9F, 1B, 8F,CF,BE, 888 
6718 DATA FE, FD, 3F,3F,BF,3F, A2, 76, 98,84, A2, 89, F3, 76, 80,69E 
6729 DATA 84,11,FD,98,3F,B3, 39, 76, 89,95,F7,33, 3C, 7C, 93, 49D 
6738 DATA 42, FC, 76, 76,91, 76,33,84,8F,0F, 76, 76,91, 30, 33, 452 
6749 DATA 8F,4F,76,CF,88,8F,8F,8F, 76,CF,86,C7,CF,CF,C7,6CF 
6758 DATA 1B,8F,CF,93,42,C7, 76,CF,85,CB,98,96,90,99,89,41A 
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18" DATAS2C AXYS 
TR 

34 MODE 2:4D-2CR0:NL-98 

49 FOR A:1 TO 666:B=9:FOR C=1 TO 15:READ A$ 

58 POKE AD, VAL("&®+A$) :B=B4PEEK (AD) :AD=AD+1 

69 NEXT:READ Et:1F VAL("L"4ES)CB THEN 89 

78 NL=NL+#L9:NEXT:SAVE" INTROC", B, &CHAD, L26F9:CLS :END 

89 CLS:PRINT"LIGNE"NL;" INCORRECTE" :END 

98 DATA C3,C7,CF,93,42,8F,0F,4F,CF, BE, FD, FF, A2, 76,08, 7AC 
189 DATA 12,55, AA, 90,55, 33, FC, 09,51, 7F, B9, BB, 76, 99, 89, 558 
118 DATA 51,76, 76,84, FC, FC, B9, 76, 76,61, 3C, FC, 27, 27, 33,695 
128 DATA 33, 27,33,0F, 33,93, 42, 1B, 33,33, 76,0F,86,4F,8F, 27E 
138 DATA 8F,8F,8F,CF,DF, FR, 42, 76,99,99, 9F, F6, 3C,FE, 33, 719 
149 DATA BB, 73,3F, 78, 76,99,98,B7,FF, 78,11, FC, FC, 30, FC, 7DB 
159 DATA RO, 76, FC, 84, B0, 77, BF, BB, 33,33, FC, 39, 39, 2, 51, 794 
169 DATA 33, FD, FF, FF,BB, FC, BB, 76, 76,81,89, FD, BB, 33, 33, 964 
178 DATA FC, 30, B9, 33, 9, 33, 93, 42, 76, 76,91, FC, 3, 3C, BE, 674 
189 DATA 7C, FD, 33, 03,42, BB,FE, FC, 93,42, FF, FF, BB, 33, 33, 89A 
198 DATA 76, 76,81, FD, 76, FC, 84,FE, FD, FF, 33, 03, 42, 22, 15, 799 
299 DATA 78, A2,98,93,42,15,33,BB, 33, BB, 33,FF, FF, 33, BF, 676 
218 DATA F3,51,87, 24,51,15, 38, 76,33, 04, 77,90, 08,83, 77,514 
229 DATA FF, 76,176,81,FC,93, 42, 33, 76,76,01,FF, BB, 73, 3F, 689 
236 DATA 3F,76,33,84,37,FF, 76, 33,84, BF, FF, 76, 33,94, BB, 5F5 
249 DATA BB, 33,FF,FE, FC, 30, 3C,FF,BF, 9F, 76,98, 66,87, 55, 7E4 
259 DATA 76,33, 84,BB, BB, 33, 3F, 93,42, FF, F3, 2,68, 09, 2,618 
268 DATA 76,99,06, 24, 15,33,FB,F3,87,FF, 93, 42, 24, 88, B3, 5B4 
278 DATA BF, F3, A2, 76,99, 84,87, 76,09,99, 11,33, 77,FE, 77,634 
288 DATA FF,FF,33, 33, 77, 7F,33,FE, 80, 76, 76,81, BE, FC, FD, 8E8 
298 DATA FF, 89,83, 42, 15, 24, F3,FF, 33,03, 42, FC, 93, 42, 76,544 
369 DATA 33,95, 37, 76, 33,85, FD, 3F, 89,55, FF, 82, 42, 39, 7F, dA 
319 DATA 77,77,39, 37, F3, 76,04, 08,15, 77,08, 00,51, BB,FF,560 
329 DATA FB,88,08,55, 37,42, 76,09,85, 15, 76,3F, 84, 33,83, 3AB 
339 DATA 42,77,FF, 33,03, 42, 76,00,06, 11, 77,BF,3F,FF,FF, 638 
349 DATA BB, 33,93, 42, 77,76,33,04,FF,FC, 3C,FF,3F, F3, 7B, 73 
350 DATA 76,99,85,15,7F,FF,FF, BB, 33, 77,FF,3F, FF, 33,33, 715 
369 DATA 77, 33,37, 78,98, 15, 78,00, 39, 38,F8, 03, 42, 3C, 93, 3C8 
376 DATA 42,38,C8,C3, CF, C7, CF, 0F, 93, 42, 1B,8F, 76,33, 96,58F 
389 DATA 76, 76,01, 76,FC, 45,80, 39, 29, 4F, 4F,CF, CB, 89, 83,1 
398 DATA 76,30, 86, 7C, 3, 24,9, 93, 42,F3, 3F, A2, 08,03, 42, 3FB 
499 DATA B6, 89, 9F,9F,4F,4F,8E, 99, 76,30, 64, CB, 8C, 58, BD, 5D3 
419 DATA CC, FC, F8, 4C, 30, 78, B4, 30, 3C, 68,96, BC, 8C, 38, 24, 6C8 
429 DATA DS, F,83, 42, 38,64, CC, BC, AC, 98, F8, 3C,E1, 41, CF, 73 
439 DATA 83, 42, 8F,8F,0F, 76,33, 08,89, 76, FC, 96, 33,33, 6F, 449 
848 DATA 4F, CF, C3,83,93, 76, 3C, 06, 7C,BC, 76, 89, 84,F3, 7B,63F 
458 DATA A2, 89,83, 42, 86,80, 6F, 0F,CF,CF, 4F, 58, DA, B4, 30,683 
468 DATA 68, 84,48, 8,6, 4C,BC, 20, 18,30, 3C, 78, 0, C, 38,564 
478 DATA C4, 48,24, CC, BC, 78, B, CC, CC, 4C, 8, CC, 98, 38, 8C, 838 
488 DATA 48, 80, 8C, CP, CF, 93, 42, 8F, 93,42, 76, 33,68, 76, 76, 445 
198 DATA 81,76, FC, 85,89, 33, 33, 0F,4F,CB, C3, 83, 93, 76, 3C,5BB 
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599 DATA 97,37, 76,98,04,B7,F3, A2, 98,03, 42, 3E, 77,0F,0F,41C 
519 DATA 4F,4F,CF, BE, 3C, ES, 3C,68, 4C, 4, B4, 30, 83, 42,64, 5F1 
529 DATA 64, 79,30, 30, B4, 30, 30,68, 84, 39,60, CC, 96, 79, FD,6EC 
539 DATA 38,98, CC, 4C, 76, CC, 84, 39,69, 08, CF,CF,6F,8F, LB, 60D 
548 DATA 1B, 76,33, 84, B9, 76, 76,82, 89, 76,FC, 87, 33, 33, 4F,556 
559 DATA 4F,CB, C3, 83,83, 76, 3C, 96, TC, AA, 9,F3, 51,68, F3,678 
569 DATA F3, 42, 99,93, 42,3E, 77,8F,8F,CF, 4F,CF, CF, 4D, 3C, 5F2 
578 DATA 65,48, 8C, DB, 3C, B9, 3C, 78, 29, 44,98, 34,0, 78, 30, 51 
589 DATA 78, F8, 90,58, 60, 3, B4, F4, EP, 96, 39,64, CC, 4C, CC, 848 
598 DATA 98, 79,9, 8C, 80, 4D,CF,8F,9F, 1B, 1B, 76,33, 84, FC, 669 
698 DATA 93, 42,33, 76,FC,07,33,33,4F,4F, CB, C3, C3, 43, 76, 5BF 
619 DATA 3C, 87, 89,F3,F3, 15,09, B7, F3, A2, 09,03, 42, 3E, 39,546 
628 DATA 8F,9F, 4F,CF, 83, 42, 8E, DA, 78, 4C, 58, 76, 30, 84, F4,62F 
639 DATA 80, C9,58, 78,B4, 3C, F9, 34, 3C, CB, 98, DB, 3C, 24, 98, 794 
648 DATA 8C, 80, 48,C4, CC, CC, 80,48, CP, DE, 38, 30, 84, 6F, 8F, 786 
658 DATA 9F, 76,33, 86, 76, 76,81, 76,FC, 97, TC, FC, FC, 33, 33,5FE 
668 DATA 4F, CF, CF,C3,83, 93, 76,30, 96, 70, 99,F3, F3, 15, 99,666 
678 DATA B7,F3,A2, 89,93, 42, BE, 33,CF,4F, CF, 4F, CF, 8F,8F, 7AB 
688 DATA 9D, BB, E, 76, 30, 04, 36, 9C, 39, 80, 19, 78, F9, 3C, 18,550 
699 DATA 30, 3C,E9, C4, B4, 78,6, F9, F6, 79, DB, 08, 36, 38, B, 884 
798 DATA F8, 38,60, 64, 1C, ES, 8F,0F,8F, 76, 33, 94, 76, 76,81, 4D3 
719 DATA B9,76,76,81,FC, FC, B9, FC, 93,42, 3C, FC, 83, 42, 33, 748 
729 DATA 33,9F,CF,CF, C3, 93,83, 76, 30,85, 7C, 79,08,F3,51,619 
739 DATA 15,69, F3,F3, 76,99, 04, BE, 33,0F, 4F, CF, 9F,CF,CF,649 
749 DATA 8F, 8E, CP, 24, 34, 7C, 7C, 30,83, 42, B4,E4, 88, 20, B9,62A 
756 DATA B9,38, 30, 30,68, C9, F9, FD, E4, 98, 39, 4,98, 24, 38, 74C 
768 DATA 64, CC, 93, 42, 80, 58,98, 68, 8D,£F, 1B, 33, 33, 76, 76, 4E2 
778 DATA 92, FC, 76, 76,81, 76,FC, 87, TC, TC, FC, FC, 33,33, 27,6E1 
789 DATA 4F, CF, C3, 43,83, 76, 30,06, 28,51,F3,51, 15, 76, 89, 5A7 
799 DATA 87,7E,77,8F,4F, CF, 9F, CF, 43, 42, 6F, 4F, OA, 1C, 30, 51C 
868 DATA 64, 3C, B4, 30, 30, B4, 48, 38,64, 1C, 78, 79,B4, 38, C,614 
819 DATA 98, F9, B9, 79, F8, E4, 48,04, 0C,8C, CC, 8, 4C, BC, 79, 789 
829 DATA E4, 78,40, 8F, 1B, 33,93, 42, 76, 76,81, 33, 76, 76, 81,457 
839 DATA 76, FC, 86, 30, 76, FC, 94, 33, 33, 27, 4F, CF, C3,C3,83,6DE 
849 DATA 76,30, 95, 70, 28,51,F3, A2, 15,76,88,97, 11, 22, 8F, 415 
859 DATA CF,CF,4F,CF,43, 42, 1B, 1A, F#, 30, 93, 42, 38, 3C,93,51E 
868 DATA 42, 78,39, 30, B8, B4, 78, 79, 30, 78, CB, 18,48, C9, D, 6D6 
878 DATA F8, A4, 4C, CC, CC, 9C, 93,42, C#,89,64,64,FB, CA, 0F, 714 
889 DATA 76, 33,94, 76, FC, 96, 76,3, 85,39, 98,09, F3,51,FF,558 
899 DATA 89,87, 3F, A2, 89, 93, 42, 76, 76,91,98,55,0F, 3, 30, 436 
998 DATA B4, 30,43, 42, 78, 78, 30, 78, CC, E4,64, 80, 18, 39, 4C, 645 
919 DATA CC, 8C, 84, CC, CB, BC, AC, 48, 49,84, 9, 84, DB, 78,64, 754 
928 DATA D, E8, 99, 09,80, 09,98, 49,49,84,C9,99,69, 49,18, 454 
939 DATA E4,89, 89, 84,98, 33, 33, FC, BC, BC, FC, FC, 3C, B9, 33, 7FA 
949 DATA 93, 42,0F,4F,CB, C3, C3, 83, 76,30, 84, AA, 76,09, 85,552 
958 DATA F7,51,3F,BF, A2, 99,93, 42,FE, 28, 98, 2F, 4F, 8F, CF, 62F 
968 DATA 8E, 8C, AC, 84,64, 98, CB, 48, CB, 3, 42, 89, Bé, 4C, 4C, 557 
979 DATA CB,C4, 4C, 84, CB, CH, 89, 84, 0C, 48, CA, 68, 48, 4C, 48, BC8 
988 DATA 84,09,09, 84,98, 68, DB, 30, 2C, 34,F#, 69,88, C9, 8,584 
999 DATA 88, 49,76, 80,84, 49, FC, BO, 76, 76,92, FC, 93, 42, 33,511 
1889 DATA 27,0F,4F,CF,CB,CF, 83,30, 30, 39, A2, 76,98,87, 51, 592 
1819 DATA FF,FF, A, 68,93, 42,3E,A8,55,8F, 83, 42, CF, 4F, CF, 669 
1829 DATA 4F,CF,CF,4F,CF, CF, 48,84, 8C, CB, 89,49, CB, 89, 89, 772 
1838 DATA 48,48, 76,08, 12, 40,88, 48, 88,88, C0, C9, 88,83, 42, 3CD 
1849 DATA 89,C8,84, 48, 49, FC, 33, 76, 76,84, FC, 33, FC, BO, 33, 77F 
1858 DATA 27,4F,CF, CB, 83, 83,93, 30, 79,51, A2, 76,08, 89, A2, 5E2 
1969 DATA 76,99,84,15, 22,98, F6,0F, 83,42, 6F,6F, CF, 4F, 6F, C6 
1878 DATA 4F,4F,CF,93, 42, CB, C3, C7, CF, CB, 88, 98,89, C9, 76, 757 
1889 DATA 99,84, C9, C9, 76,C3,87, CF, C7, C7, CF, CF, BF, CF, 8F, 8AC 





1898 DATA 76,0F,98,27,1B,9F,27, 1B, 1B,33,27,1B, 76, 33, 84, 25D 
1199 DATA 27,8F,CB,C3,CB, 83, 76,89, 8F,3E, 7C,33,FC,F9,99,679 
1118 DATA 55,33, 93, 42, 7C,27,27,9F,93,42,CF,9F,8F, 76,CF, 49D 
1129 DATA 95,C3,CB, 76,C3,9F,C7,CF,C3,C7,C3,C7, 76,CF, GA, 8D4 
1138 DATA 4F,4F,CF,76,9F,99, 1B, 33, 1B,8F,CF,CF,C3,83, 76, 54D 
1149 DATA 9B,11,54, A8, 99,99, 51,99, 3B,B9, 36, 39, 76,33, 95, 36F 
1158 DATA 8F,27,9F,0F,1B,B9,9F,4F, 76,CF,84,CB,C3,C7, B9, 5DD 
1169 DATA 76,C3,95,C7,CB,CF,CF, 1B, 27,4F,C3,CF, C3, 76,CF, 899 
1178 DATA 13,1B,9F,0F, 1B,33,9F,4F,C7,3C, 70, 76,89,87,3F,334 
1189 DATA BF,99,98,B7,77,A2, 89,93, 42,FE, 22, 76,99,95,51,4C9 
1198 DATA FC,BC,FC,FC, 76,76,81,FC,FC, 33,33, 1B,8F, 1B,9F, 74F 
1289 DATA 1B,BC,39,9F,4F,CF,CF,8F,67,C3,C7,CB,C3,CF,36,81F 
1218 DATA 39,27, 76,CF,96,CB, CB, 76,C3,95,76,CF,87,9B,67,6CD 
1229 DATA CF,C3,CF,C3,CF,93, 42, 76,8F,04,CF,3C,FE, FD, 99, 7C7 
1238 DATA B7,3F, 76,00,98, 7B, 76,98,94,55,73,99,F6,FC, BC, 5DF 
1249 DATA 22,76,99,06, 3B,FC, 3C, FC, 93, 42, 76,33,94,9F,0F, 41D 
1259 DATA 1B,FC,B9,9F,9F, 76,CF,08,8F,03,42,76,CF,88,C3,59F 
1269 DATA C7,1B,27,C7,76,CF,96,C7,C7,76,C3,94,CF,CF,0F, 793 
1278 DATA 9F,4F,CF,3C,FD,FF, 76,99,13,51,22,99,15,33,FC,5A5 
1288 DATA 2A,51,BB, 33,33, 77, A2, 76,90,09,76,76,01,FC,FC,619 
1298 DATA BC,3C,FC,77,FB,F3, 76,98,94,51,7F,FF,F3, A2, 89,637 
1399 DATA F3,7F,BB,76,8F,94,4F,6F,5F, A2, 76,08,05,15,3F,564 
1318 DATA BB, 33, 77,9F,08,08,51,FE,FF,FC,33,FF, 33, A2, 3F, 734 
1329 DATA 76,98,8A,36,FC,BC, 3C, 7C, FC, 93, 42,33, 76, 76,81,587 
1338 DATA FC, FC, 76,33,94, BF, 3B, 3F, 33,93, 42,76, 76,91,37,57A 
1349 DATA 7E,FC,FF,33,B9,33, FD, BB, 33, 77,FF, 33, BB, 76, 33, 899 
1355 DATA 84,89, 76,33,94, 76, 76,81,BE,3C,FC,FC, FD, BB, 77,778 
1369 DATA 33,93,42,7F,FF,FF,FD, FC, FD, BB, 76, 76,91,FF,33,8C5 
1378 DATA FF,FF,BE,3C,3C, FC, 33,33, 77,FF,FF,33,89,15,F3, 846 
1389 DATA 51,33,BB, 77,FF,93,42,BF,FF,93, 42,BB, 2A,98,51,633 
1398 DATA B7,F3,55,33,77, 7B,B3, 33,33, 24, 08,09, 11,76, 76,564 
1499 DATA 91,3C,BC,3C, 7D, 77, 76,33, 84, A2,00,89,55,FF,FC, 5C8 
1419 DATA 38,33, BB, 33, 77,BB, 33,93, 42, 77,77, 76,33,84, 77,518 
1429 DATA 33,FF,FF,FE,FC,FD,FF,FF,BF,7B,51,F3,3F,FF,FF,BE1 
1438 DATA 33,03, 42,FF,BB, 33, 93,42, 77,BF,3F,33,BF, A2, 76,629 
1449 DATA 98,99,FF,7F,3F,37,60,B7,3F,7F,FB, 76, 99,98,51,53C 
1458 DATA 7B,33,FC, 99, 73, À2,08,B7,F3,09,08,11,33,FF, 33, SDF 
1469 DATA FF,BB,33,33,FF,BF,7F,BB,FF,FC,FF,FE,FC,FF,76,B81 
1478 DATA 99,07,51,FF,993,42,BC,FE, FD, 33,33, 77,BF,3B, 3F,669 
1489 DATA FF,BB,76,33,84,77,3F, 7F,33,93, 42,37, 38,33, 77,539 
1499 DATA 33,77, 7B, 76,08, 1C, 76,3F,05,3B, 76,33, 84, 7B, 76, 44A 
1598 DATA 99,07,33,77,FF,BB, 76,33, 09,FF,FF,FC, BC, 79, A2, 7EE 
1519 DATA 76,99,99,3F,7F,FF,93,42,3F,93,42,FF,FF,33,FF,635 
1528 DATA 33,FF,2A,08,83,42,54, 19, AE, A2, B2, BB, DB, 99, B3, 6E9 
1538 DATA BA, B2, BB, 82, 8D, 8C,81,6F,83,87,C5,F8,F9,B3, B9,9F6 
1549 DATA 72,38,3B,BB,53,D6,CF, CD, D7, D3, A2, A2, B3, B3,54,985 
1558 DATA 58, 92, 92,B9, B9, 12,9F,EE,93,53,56,8B, 83, C1,DY, 748 
1568 DATA 19,31,39,B9,B3, A3, 52,FF, DA, FA, 92, BF, 92, 46,93, 8C1 
1578 DATA F3,B6,BF,B8,B9,FB,FB, A3, A2, C3, C2, AB, E3, E2, E2, BEB 
1589 DATA A, B9,5B, 19,4E,09,5F, 41, 46,99, 0C,31,EA,94,4E, SBA 
1598 DATA 4F,5F,41,46,31,98,1F,4E, 14,4C, 79,47, 4F,4F,G6B, 3FC 
1699 DATA 99,21,8D,95,49,4E, 9, 1F,0C, 31, 09, AF, 0F, 25, 4F, 368 
1619 DATA 65,44,29,98, 1F,9D,31,2C,15,49,4E, 49,54, 5C, 4C, 343 
1628 DATA 55,53,39,95,58, 41, 4C,31,88,0F,8C,31, 38,05, 58, 488 
1638 DATA 41,40, 32,88, 31,08,9F, 48,95, 41,53, 43, 49, 49, 88, 3D8 
1649 DATA 9C,31,5B,95,54,45,58,54, 99,31, 99,9F, 07,95, 08, 46E 
1659 DATA 9F,8C,91,98,1F,0C,91,99, 1D, 1C, 31,88, 1D, 4C, 31, 1DC 
1669 DATA 66,8F,8C,91,89,0F,9C,9C, B9, BB, 3C, 31, BS, BB, C, 4B2 
1678 DATA 31,09,9F,0C,31,09,9F,0C, 31,88, 1F,8C, 31,88, 1F, 264 
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1688 DATA 40, 31,18,BF, 10,31, 18,EF, 1C,31,B8,BF,8C, 31,38, 451 
1698 DATA 3F,1C,31,19,BF,1C,31,19,BF, 1C,B1, 19, 3F, 8D, 31, 3D1 
1788 DATA 18,1F,1C, 34,80, 0F, 8C, 34, 8, 0F, 8C, 91, 64, 0F, 8C, 2DE 
1719 DATA 31,09,9F,8C,31,08,9F, 00, 31,89,9F, BC, 31,89, 9F, 364 
1728 DATA 9C,31,80,9F,8C, 31, 99,9F, 8C, 31, 99,9F, 0C, 31,8, 209 
1738 DATA 9F,0C,31,99,9F, 0C, 31,98, 9F, 8C,81,80,9F, 8C, 81,508 
1749 DATA 88,90, BC,B5, B9, BD, 7C, 71, 89,6F, 80,81, 89, 8F,9F, 8B2 
1758 DATA DC,FF,FF, 28, 33, 8, B9, 28,81, 29, AB, 20, E9, 88, 0F, 74A 
1768 DATA 2C,E8,99,99, 28, B1, 29, 89, 8C, 31,99, 8E, 2C, EB, 28, S4E 
1778 DATA EE, 20, E0, 86, 19, 28, 31,98, 19, 28, 31,88, BE, 20, ED, 3F8 
1788 DATA 68,9F, 20,6, 29,89, 88, 39, 29, B9, 28, B1, 99, 8C, 0, 58F 
1798 DATA 69,09, 8E, 6C, 88, 19, 19, 28, Bt, 99, 19, 28, 31, 89, 9E, 31C 
1899 DATA 40,69, 89,9F, A8, E0, 39, B9, 6C, 31, 92,92, 28, B1, 19, 4C6 
1818 DATA 9F,0C, 31,19,9F,98, 48, 08, 1D, 18,31, 10, 19,28, Bi, 2FB 
1828 DATA 99,8E,88,99,19,8C, AC, 09,09, 1F, 10,31, 99, 39,59, 23C 
1839 DATA 79, 26,E8,98, C9, 29, EA, A8, E2,FF,FF, 34, 3B, B2, FO, 8F3 
1849 DATA B8,B9, B2, A9, BA, At, 19,9F, BE, A1, 89, BD, BA, B1, B9, BD 
1859 DATA B9, 18,31, 19,3F, BA, A1, B2, AD, BA, Et, 19, 30, 34, 31,65A 
1869 DATA 18,39,38,31,39,3F, BA, A1, 12,9F, BA, A1, B2, B9, 18, 68B 
1878 DATA 39,B9,B9,BA,B1,92, 8D,9C, 81,92, 8F, SE, 81, B&, B9, BF2 
1889 DATA BA,F1, 19,39, 34, 79, 12, 1F, BA, C1, 92, 0F, AA, E3, B2, 793 
1898 DATA F9,4C, 31,92,92,B6, Bt, 12,9F, AC, 31, 12, 9F, OA, C3, 59F 
1998 DATA 89,9, 1A,31,19,39, AA, B1, 12, 3F, 1A,33, 12,3F, 3A, 435 
1918 DATA 33,39,3F,BE,B5, BB, B9, FB, F9, B2, E9, 94, 81, B2, E9, 9C3 
1929 DATA A2,E2,A8,BF,8C, 11,80, 1F, 8C,31,09,9F, C, 31, 09, 438 
1938 DATA 9F,9C, 31,99, 1F,8C, 31,8, 1F, 0, 31,98, 0F, 8C, 81, 249 
1949 DATA 99,9F,8C,91,89,9F, AC, 11,99, 1F, 0C, 11, 9,8F, 0C, 2BF 
1958 DATA 91,99,6F,0C,99,08, 1F,00,31,8, 1F, 8, 31,98, 0F, 1F4 
1968 DATA 8C,38,88,9F, 8C, 31, 89,9F, 8C, 31, 99,9F, C, 31, 99, 209 
1978 DATA 9F, 8, 31,89,9F, 40, 31,98, 9F, 8C, 31, 90,9F, BC, 31, 379 
1989 DATA 68,9F,8C,31,89,9F, 8C, 31,98, 9F, 0C, 31, 8,9F, 0C, 33F 
1998 DATA 31,89,9F,0C, 9,98, 1F, 0C, 98,08, LD, 1C, 31,88, 10, 18E 
2998 DATA 4C,71,68,0E, 8C, 09, 99,6E, 10,60, B9, BD, 38, 31,39, 413 
2818 DATA 3F,0C, 31,08, BF, 0C,31,89,9F, 80, 31,88, 1F, 8, 31, 2B8 
2929 DATA 89, 1F,8C,91,18,BF, 1C,31,19,BF, 1C, 31, 88, 9F, UC, 3EF 
2938 DATA 31,80, 1F,0C,31,18,BF,1C,11,18,BF, 1C, 31,19, 1F, 2D4 
2949 DATA 1D, 31,18, 1F,8C, 31, 80,9F, 8C, 38, 80,9F, 0C, 31,00, 271 
2858 DATA 9F,9C,31,98,0F, 00, 31,08,9F, 80, 31, 88, 9F, 8, 31, 378 
2968 DATA 98,9F,8C,31,89,9F, 8C, 31,89,9F, 8C, 31, 98, 9F, 8C, 33F 
2878 DATA 31,88,9F, 00, 31, 08,9F, 00, 31,88, 9F, 8E, 91, 82, 9F, 4DS 
2989 DATA 8E,91,89,9D, 90, 35,98, 3, 5C, 71,9, 0F, 20, 91, 08, 4E3 
2898 DATA 8F,9F, BD, C3, 1C,88,C3,4F,88,C3,3E, 89, C3, 8D, 89, 72D 
2189 DATA 89,DD,21,C7,81,DD, 7E, 89, 76,48, 84, 32, 0C, 88, C9, SAB 
2118 DATA FE, 93,D8,B7, C8, 11,FF,FF, FE, 82, 29, BA, DD, 56, 81, 7BD 
2128 DATA DD,5E, 89, DD, 23, DD, 23, DD, 46,84, DD, 4E, 98, CD, AD, 744 
2138 DATA 89,C3,3E, 89, 21, 33,82, 11,29, 82, 81, 89, 69, ED, BG, 53A 
2149 DATA 21,29,82,C3,E3,BC, 21,29, 82, CD, E6, BC, BE, 3F, 3E, 6F4 
2159 DATA 97,C3,43,65,DD,E5,FD,E5,E5,D5,F5,C5, FD, 21, 26,9EE 
2168 DATA 82,00, 21,C7,61, FD, 7E, 09, 87, C4, 3F, 82, FD, 7E, 01, 7FB 
2178 DATA DD,21,D7,81,B7, C4, 3F,82, DD, 21,E7, 81, FD, 7E, 92, 875 
2188 DATA B7,C4,3F,82, FD, 7E, 99, FD, B6, 91, FD, B6, 92, CC, 4F, 838 
2199 DATA 89, SA, 3E, 82, D, 28,86, CD,68, 83, 34, 3D, 82, 32, 3€, 4FE 
2289 DATA 82,C1,F1,D1,E1,FD, Et, DD, Et,C9, 21,41, 81, C5, D5, ACB 
2218 DATA 11,07,61,91,18,98,3E,91,E5, C5, ED, BB, C1, E1, 32, BC4 
2228 DATA D2,81,E5,C5, 11,07, 81, ED, B9, C1, E1, 3C, 32, E2, 81,976 
2238 DATA 11,E7,61, ED, B#, 30, 92, F2,81,3E, 1, 32, SE, 82, FD, 725 
2249 DATA 21,26,82, FD, 77,98, FD, 77,81,FD, 77,92, D1, C1, 2A, 6E4 
2258 DATA 29,82, DD, 21, C7, 81, DD, 73,99, DD, 72, 8A, DS, C5, CD, 881 
2269 DATA 22,81,C1,D1,C5,D5,DD, 21, D7, 81, 2A, 22, 82, DD, 73, 843 





2278 DATA 99, DD, 72, 8A, CD, 22,81,D1, C1, DD, 21, 7,81, 24, 24, 718 
2288 DATA 82, DD, 73,89, DD, 72, 8A, 78, 81, 28, 14,05, 7E, CB, 7F, 726 
2208 DATA 28,85, CD,51,81,18,F6, 7E, 23,87, 28,FB,C1,8B, 18,631 
2388 DATA EB,D0,75,87, DD, 74,88, C9, 88,98, 81,08, 81,83,81, 469 
2318 DATA 76,88,95,51,91, 98,98, E6, 97, 30, 28, 90, 7E, 23, CB, 349 
2328 DATA 5F,3E,88, 28,81, 3C, DD, 77,82, C9, 30, 28, 12, 23, 7E, 431 
2338 DATA. DD, 77,98, DD, 77,9E, 23, 7E, DD, 77,61, DD, 77,8F, 23,632 
2348 DATA C9, 3D, 28,87, 23, 7E, 23, DD, 77, 80, C9, 3D, 28, 82, 23, 49D 
2358 DATA C9, 30, 28, 17,23, 7E,E6,8F, 30, DD, 77,83, 7E, CB, 3F,5EE 
2368 DATA CB, 3F,CB,3F, CB, 3F, 30, DD, 77, 84, 23, C9, 30, 28, #E, 680 
2378 DATA 76,66, 3F, CB, 3F, CB, 3F,CB, 3F, DD, 77,85, 23, C9, 3D, 743 
2388 DATA 23,C8, 7€, 23, E5,DD,E5, DD, 46,98, E6,0F, 4F, CD, 2A, 794 
2398 DATA 85,DD,E1,E1, C9, 76,89, 84,81, 76,98, 9F, 82, 76,88, 568 
2488 DATA 8F,83,76,09,95,08, 98, 76, 98, 04, 19,99, 82, 76, 88, 1AE 
2418 DATA 89, 28, 0A, 84, 76,68, 6E, CF, 87, D6, BA, C3, 8E, 76,99, 538 
2428 DATA 12,81,5C,88, 98, 99,96, 99, 22, 1E, 82, DD, 7E, 4C, 30, 3DB 
2438 DATA 28,84, DD, 77, 4C, C9, DD, 7E, 80, DD, 77, 8C, DD, 7E, 86, 67E 
2448 DATA 30, 28, 84, DD, 77,96, C9, DD, 66, 98, DD, 6E, 87, 7E, B7,65E 
2458 DATA 28, 28, 23,D0,56,9E, DD, 5E, 8F, DD, 72,89, DD, 73, 81,596 
2468 DATA DD, 46,84, DD, 4E, 89, 8B, DD, 71,99, DD, 78, BA, 78, B1, 643 
2478 DATA 28,84, 7E, 87, 28,96, DD, 46,88, C3, 33,85,FE, 89, 36, 5E6 
2489 DATA #6, CD, 51,81, 7E, 18, F6, 11, 89, 82, 7E, E6, 8F,83,5F;6D2 
2498 DATA.3,81;14, {A DD, 77,6, 7E, CB, 6F, 28, 10,23, DD, 75, 528 
2588 DATA 97, DD, 74,68, DD, 46, BB, C3, 6D, 85, 83,44, 99, 86, 8C, 485 
2518 DATA 18,91,91,93, 94,89, 99, 12, 24, 81,91, 23,CB, 77,28, 1F8 
2528 DATA 17,7E,E5, DD, ES, DD, 46,88, DD, 4E, 93, CB, 77, 28,83, 785 
2538 DATA DD, 4E, 94, CD, DB, 84, DD, E1, Et, 7E, 23, DD, 75,87, DD, 8D1 
2549 DATA 74,98,E6,3F,CB,3F, CB, 3F, CB, 9F, CB, 9F, 28, 47, 7E,6B9 
2558 DATA E6,9F, 4F,DD,66, 99, DD,6E, 81, 78, 87, C4, 35,83, DD, 75B 
2568 DATA 7E,82,00,E5,CD,58, 84, DD, Et, DD, 7E, 45,83, 47, 4, 81D 
2578 DATA DD,E5,CD, 27,84, DD,Et, DD, 46,88, C3, 1E,85, 81, 82, 78F 
2588 DATA 4,88, 19, 28, 48,91, 82,94,88,18, 26,91, 92,94,ES, LA? 
2598 DATA 11,25, 83, 79,83,38,91,14,5F, 78, 21,FF, 89, FE, 83, 4F2 
2688 DATA 28,85, 25, 30, 28, 91,20, 14, 44,67, 1A,EE, FF, DD, A6, 588 
2618 DATA 99, B4, DD, 77,68, 1A,45,6F, 1A,EE, FF, DD, 46, 81,85, 776 
2628 DATA DD, 77,81,E1,C9, FD, 21,10, 82, 3E, 38, FD, 77, 98, DD, 783 
2639 DATA 21,F7,81, CD, A1,83,DD, 21,83, 82, CD, A1,83, DD, 24, 7FC 
2648 DATA #F,82, CD, A1, 83, FD, 4E, 99, 3E, 97, C3, 43,85, 7E,E6, 781 
2658 DATA 86, 28,95, 7E, 23,6, 7F,C9, 11,88, 98, 5E, B7, ED, 52, 5E1 
2668 DATA 18,F2,DD,66, 86, DD,6E,95, CD, 8E, 83, 4F, DD, 74,86, 727 
2678 DATA DD, 75,95, FD, 7E, 08, 28,88, DD, AE, 88, FD, 77, 80, E, 642 
2689 DATA 96, CD, 43,85, DD, 6E, 83, DD, 66, 84, CD, E, 83, DD, 75, 768 
2698 DATA 93,DD, 74,94, E6,F,26,98,6F,E5,D1, DD, 7E, 8B, 87,685 
2789 DATA 28,94,19, 30, 18, FA, CB, 3C,CB, 1D, CB, 3, CB, D, CB, 63D 
2718 DATA 3C,CB,1D,CB, 3, CB, 1D,4D, DD, 7E, 81,CD,43,85, DD, 72E 
2729 DATA 66,88, DD, GE, 87, CD, 8E, 83, DD, 74, 98, DD, 75,97, 11,661 
2738 DATA 99,98, 5F, 21, 18,98,87, ED, 52, DD,5E, 89, DD, 56, 84, 597 
2748 DATA B7, 19, 4D, DD, 7E, 82, F5, CD, 43,85, F1, 3C, 4C, C3, 43, 783 
2758 DATA 85, 21, 49,84, 79, CB, 27,85, 38,81, 24, 6F, 78, 3C, 5E, 534 
2768 DATA 23,56,EB, 30, C8, CB, 3C,CB, 10, 18, F8, EE, PE, 18,0E, 68A 
2778 DATA 4D, 60, 8E, 8C, DA, 08, 2F,0B,6F, 8A,F7,89,68, 89, Et, 4FE 
2788 DATA 88,61,88,E9, 87, DD, 21, 1B, 82, 22, 1B,82,21,B8,64,518 
2798 DATA B7, 29,93, 21, AB, 84, 1E, 98, 79,FE, 87, 38,96, 87, DE, 599 
2889 DATA 97,1C,18,F6,F5,85, 38,81, 24,6F, 56, 78,87, 28, 3E, 552 
2818 DATA 21,87,84,F1,85,38,81,24,6F, 7E, DD, 6,81, 28,86, 5C6 
2828 DATA DD, 6,88, 28, 84, 14, 7A,FE, 8C, D8, 1C, DE, 8C,57,C9,643 
2838 DATA CD,95, 84, 15, 7A,FE, 8C,D8,C6,8C, 10,57, C9, 84, 85, 66F 
2849 DATA 87,89,8B,8C, BE, 19, 11,13,15,17,81,92, 84,98, 19, B4 

2858 DATA 28, 48, F1, 78, 30, 28,D1, 80, 28,D8, 18,CD, 19,85, 29,55F 
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2868 DATA FC,C9,21,F7,81,85, 11,8C, 88, C4, C8, 84,E5, DD, E1,833 
2878 DATA C9,CD, CD, 84, 21,61,85,11,86,98, 41,85, C4,C8, 84,658 
2889 DATA DD, 23,D0, 23, DD, 23, DD,ES, Di, 81, 86,99, ED, B8, C9, 888 
2898 DATA DD, 75,83, DD, 74, 84, 19, DD, 75,85, DD, 74, 86, 19, DD, 667 
2988 DATA 75,87, DD, 74,88, C9, CD, CD, 84,11, 92,98, 21, 18,85, 58D 
2919 DATA 16,E8,88,91,88,61,8F,81,E5, CD, CD, 84, E1, DD, 75, 7C8 
2928 DATA #9,DD, 74,84, C9, C5, CD, CD, 84, C1, DD, 71,88, C9, C5, 888 
2938 DATA CD, 8D, 85, C1,48, 06,98, 21, 25, 82, 99,3E, 89, 77, CO, 4BD 
2948 DATA 86,F4,ED, 79, 86, F6, ED, 78, F6, CA, ED, 70,68, 4F, ED, EF 
2959 DATA 79,96, F4, ED, 49, 66, F6, 4F, F6, 88, ED, 79, ED, 49, CO, BCF 
2969 DATA C1,85,C3,85, C5,85, C7, 85, C9, 85, CB,85, Dé, 85, D6, 0F1 
2978 DATA 85,08, 85, 88, 86, 33,86, 35, 66, 37, 86, 4€, 86, 59, 86,643 
2989 DATA 52,86,85, 86, 87, 86,99, 86, A7, 86, 49, 86, 1,86, CF, 868 
2998 DATA 86,1, 66, D3, 86, D9, 86, DB, 86, DD, 86, FB, 86, FD, 86, A5D 
3989 DATA 96,87,8C, 87, HE, 87, 16,87, 34, 87, 36,87,5F,87,65,515 
3918 DATA 87,67,87,98,87,9F,87, 1,87, A3, 87,2, 87, B4, 87,878 
3928 DATA B6,87,CB, 87, CD, 87, 8F, 84, 84,01, 8F, 41, EF, 41, 08, 604 
3938 DATA 81,98, 91,98, 8F,6E,8D,6E, 6F, 98, 8F, 91,89, 81,8F,621 
3949 DATA 98,8F,43, 42, 8E, 6F, 43, 42, 98,98, 8F, 8F, BE, 8E, BF, GAF 
3858 DATA 99,93, 42, 8F,6E, 93,42, 6F,98, 91,98, 6F, BE, 8D, &E, GAF 
3969 DATA 8F,99,92, 98, 6F, 8E, 6C, BE, 87, 76, 6F, 97, 8E, 93, 42,65E 
3976 DATA 6D,93, 42, 80,93, 42, 88,93, 42, 8A, 93, 42, 89, 83, 42, 419 
3989 DATA 88,83, 42, 87,93, 42,86,93, 42, 85, 93, 42, 84,83, 42, 3F7 
3998 DATA 83,93, 42, 82, 93, 42,81,83, 42, 88,91, 89, 01,6F, 81, 3E7 
3189 DATA 76,8F,#4,8E, BE, BD, 8D, 8C, 8C, 8B, BA, 89, 88, 87, 86, 78A 
3119 DATA 65,84, 83,62,81,68,91, 89,91, 6F,81, 76, 6F, 87, 6€, 5BB 
3129 DATA 43, 42,60, 83, 42, 8C, 83, 42, 8B, 93, 42, GA, 83, 42,89, 419 
3139 DATA 93, 42,88, 93, 42,87, 93, 42,86, 93, 42, 85, 93, 42, B4, 3F7 
3149 DATA #3,42,83,83, 42,82, 93, 42, 81,93, 42, 88, 81, 88,81, 39C 
3158 DATA 99,91,98,8F, 8E, 8D, 6E, 8F, 98, 76, 6F, 94, 8E, &E, 8D, 732 
3169 DATA 8D, 80, 8C, 8B, BA, 89, 88, 87, 86,85, 84,83, 82, 81, 89, 7E7 
3178 DATA 01,69,81,98,91,98, 8F,8E, 8D, 8E, 47, 81,81, 82, 82,678 
3189 DATA 83,83, 84, 84,85, 85, 86,86, 87, 87, 88, 88, 89, 89, BA, 7DE 
3199 DATA 84,88, 8B, 8, 80, 80, 80, 8E, 8E, 8F, 91,89, 81, 8F, 81, 68F 
3289 DATA 86,8A,8C,8E, 6F, 81, 89,91, 6F,91,61,81, 82,82, 83,654 
3219 DATA 83,64, 84,65,85, 66,66, 87,87, 88, 88, 89, 89, 8A, BA, 7ES 
3229 DATA 6B,8B, 8C,8C, 8D, 80, 8E, 8E, 6F, 91, 89, 01,98;91, 98, 726 
3239 DATA 8F,8E, 80, 8€, 8F,98, 86, 84, 8C, 8E, 6F, 81,60, 91, 99, 694 
3249 DATA 91,99, 6F, 8E, 8D, 6E, 97, 61,81, 82, 82,83, 83,84, 84, 774 
3258 DATA 85,85, 86,86, 87, 87, 88, 88, 89, 89, 8A, 84, 8B, BB, 8C, 7FC 
3269 DATA 60,80, 80, 8€, 6€, 8F, 1, 89, 91, 6F, 6E,6F, 93, 42,98, 654 
3278 DATA 6F,6F,6E, 8E, 6F, 6F,99,99, 6F, 6F, 8E, 93, 42, BF, 99, 788 
3288 DATA 93, 42,8F,8E, 6D, 8E, 8F,99, 91,99, 8F, BE, 8C, 8E, F, 783 
3298 DATA 99,92,99, 6F, 98, 86, 8A,8C, 8E,8F, 81,88, 81, BF, 99, GA3 
3388 DATA 6F, 3,42, 8E, 6F, 93, 42,99, 99, 6F, 6F, 8E, BE, 8F, 98, GAF 
3319 DATA 93,42, 6F, 8€, 93, 42, 8F, 98,91, 98, 6F, BE, BD, 8E, 8F,GAE 
3329 DATA 98, 92,98, 8F, 6E, 6C, 6E, 8F, 88, 6F, GE, 8C, BA, 88,86, 7C1 
3339 DATA 65, 84,83, 82, 81,81,88,88,91,81,81,6F,91,6F, BE, 649 
3349 DATA 8C, 84, 88,86, 85, 84, 83, 82, 81,81, 89,89, 01,98, 51, 6C6 
3358 DATA 6F,81, 76,6F, 94, BE, 8D, 8C, 8B, 8A, 89, 88, 87, 86, 85,6F8 
3369 DATA 84,83, 82, 81,88,89,81,87,81,8F,81,83, 97,85, 15,547 
3378 DATA 6E,87, 1F, 69, 84,35, 98,5C, 88,53, 8B, 99, 5, 88, 53,575 
3389 DATA 8,99, 13, 84,53, 84,53, 89,53, 89, 99,53, 8A,53, 84, 576 
3399 DATA 53,89,53, 88,98, 5C, 88,53, 88, 98, 5C, 88, 53, 84, 89,548 
3488 DATA 13,84,53, 84, 13, 84,53, 84, 89, 13, 84,53, 8, 13,84, 58B 
3419 DATA 53, 84,98, 5C, 88, 53,88, 98,50, 8B, 53, 8A, 89, 13, 84,593 
3429 DATA 53, 84,53, 89, 53,89, 89,53, 8A, 53, 8A, 53, 89,53, 88, 686 
3438 DATA 99,5C, 8B, 53,88, 88,50, 88, 53, 84, 88, 15, 84,89, 15, 43D 
3449 DATA 8A, 99,50, 88, 53, 88, 88, 5C, 88,53, 8A, 08, 13, 8A, 53,583 





3458 DATA 84,53, 89,53, 89, 98, 53, 84,53, 84,53, 89, 53, 88, 89,583 
3468 DATA 5C, 88,53, 8B, 89, 5C, 8B, 53, 84,88, 13,8A,53,84, 13,516 
3478 DATA 84,53, 8A, 8, 13,84, 53, 84, 13, 84,53, 84, 99, 5, 8B, 542 
3488 DATA 53,88, 68,50, 88,53, 64,98, 13,84, 53, 84, 53, 89,53, 54B 
3498 DATA 89,98, 53, 84,53, 84, 53, 89, 53,88, 88, 5C, 88, 53, 88, 5BF 
3598 DATA 9, 5C,8B,53, 84,99, 15,84, 89, 15, 8A, 98, 5C, 8B, 53, 43C 
3518 DATA 68,99, 5C, 88,53, 8A, 68, 13, 84,53, 84,53, 89,53, 89, 581 
3528 DATA 99,53, 84,53, 84,53, 89, 53, 88,98, 5C, 8B, 53,88, 99,536 
3539 DATA 5C,8B,53, 84,99, 13,8A,53,84, 13, 84,53, 84, 89, 13, 4CB 
3548 DATA 8A,53, 84, 13, 84,53, 84,98, 5C,8B, 53,88, 99, 5C, 88, 58D 
3558 DATA 53, 84,08, 13, 84,53, 84,53, 89,53, 89, 98, 53, BA, 53,53F 
3568 DATA 84,53, 89,53, 88,49, 5C, 88, 53,8B, 89, 5C, BB, 53, 84, 5CA 
3578 DATA 99,15, 84,99, 15,64, 88, 5C,88,53,88, 88, 5C, 88,53, 434 
3588 DATA 87,88, 13,87,53,87,53, 66, 53,86, 98,53, 67,53, 87,561 
3508 DATA 53,86,53,85, 98, 5C, 88,53, 88, 99,5C, 88, 53, 87, 89, 52E 
3698 DATA 13,87,53,87,13,87,53,87, 98,13, 87,53, 87, 13, 87, 4F6 
3619 DATA 53,87,04,5C,88,53,88,99,5C,88,53, 87,84, 13,87, 4Fi 
3629 DATA 53,87,53,86, 53,86, 88, 53, 87,53, 87,53, 86, 53,85, 6F1 
3638 DATA 98, 5C, 88,53,88, 99, 5C, 88,53, 87, 88, 15,87, 69, 15, 42E 
3649 DATA 87,68, 5C, 88,53, 88, 99, 5C, 8B,53, 8A, 98, 13, 8A,53, 589 
3658 DATA 84,53, 89,53, 89, 98, 53, 84,53, 84,53, 89, 53, 88, 86, 583 
3668 DATA 5C,8B,53,8B, 89,50, 8B, 53, 8A, 0, 13,84, 53, 8A, 13,516 
3678 DATA 84,53, 84,98, 13, 8A, 53, 8A, 13, 84,53, 84, 99, 5, 8B, 542 
3688 DATA 53,88, 48, 5C, 88, 53, 8A, 89, 13, 8, 53, GA, 53, 80,53, 548 
3698 DATA 89,99, 53, 84,53, 84, 53,89, 53, 88, 89,50, 8B, 53, BB, 5BF 
3788 DATA 69,50, 88,53, 84, 89, 15,84, 99, 15, 8A, 08,54, 8B,53, 434 
3718 DATA 6B,53,88,99,53, 68,54, 88,53, 80,98, 14,80, 53, 80,581 
3728 DATA 53,8C,98, 13, 8,53, 80, 53, 8D,53, 80,98, 55, 8B, 99, 4FC 
3738 DATA 15,68, 0, 73,53, 68,53, 69,53, 8B, 89, 13,88, 53, BB, 524 
3748 DATA 53,89,53, 86, 89,54, 8B, 53, 68,53, 88,98, 53,88, 54,581 
3758 DATA 8B,53,8C, 9, 14,8C,53,8C, 53, 8C, #9, 13, 8C, 53, 80,546 
3760 DATA 53,60, 53,80, 89,55, 88, 99, 15,8B, 99,53, AD, 53, 8D,51F 
3778 DATA 53,60, 53, 80,98, 13, AD, 53, 8, 53,8B, 53, 8C, 89, 54,57 
3788 DATA 8B,53,688,53, 88,49, 53,88, 54,8B, 53,6, 08, 14, 80,588 
3798 DATA 53,80, 53,80, 98, 13,80, 53,80, 53, 80,53, 8C, 88,55, 558 
3899 DATA 88,80, 15,88, #9, 14,88, 53, 88,53, 8B, 99, 13, 8B, 53, 477 
3818 DATA 6B, 14,88, 96,50, 8B, 53, 88, 98, 5C, 88,53, 84, 88, 13, 4C6 
3828 DATA 84,53, 84,53, 89,53, 89, 98, 53, 84, 53, 8A, 53, 89,53, 688 
3838 DATA 88,98, 5C,8B, 53, 88, 98, 5C, 88,53, 84,98, 13, 84, 53,591 
3849 DATA 8A, 13,684,53, 84,89, 13, 8A, 53, 8A, 13, 84, 53, 8A, 58, 4FB 
3858 DATA 5C, 88,53, 88,48, 5C, 88,53, 84,08, 13, 84,53, 84, 53,556 
3669 DATA 89,53,89, 09,53, 84,53, 84, 53, 89, 53,88, 98, 5C, BB, 5BD 
3878 DATA 53,88, 08, 5C,8B, 53, 84, 98,55, 88, 99, 15, 8B, 99, 85, 447 
3888 DATA 16,55,8B, 09, 83,42, 83,97,85,FE, 96,87, 1F, 89, 84, 591 
3899 DATA 35,96, 75,06, 75,09, 75,08, 75,09, 75,80, 75, 88, 75,368 
3098 DATA 49, 75,98, 75,89, 75,80, 75,98, 75,00, 75, 68, 75,08, 333 
3918 DATA 75,98, 74,54,C3,98,53, CB, 53, 88,53,8B, 53, 88, 89,585 
3929 DATA 53,CB,53,88,53,8B, 53,87, 99,53, CA, 53, 8,53, 84,688 
3938 DATA 53,89, 98,53, CA,53,8A, 53, CA, 53, 89,88, 53, CB, 53, 648 
3949 DATA 8B,53,6B,53,88,89,53, CB, 53,88, 53,88, 53, 87, 08, 5FB 
3958 DATA 53, CA, 53, 8A,53, BA, 53, 89,98, 53, CA, 53, BA, 53, CA, BCA 
3969 DATA 53,89,68,53,CB,53,8B, 53, 8B, 53, 88,98, 53, CB, 53, 682 
3978 DATA 88,53, 88,53, 87,8,53, CA, 53, 84,53, 84,53, 89, 89, 5F6 
3988 DATA 53, CA,53, 84,53, CA, 53, 89, 68,53, CB, 53, 8B, 53, 88, 6CD 
3999 DATA 53,68,99,53,CB,53,88, 53,88, 58, 87,59,87,80, 53,586 
4998 DATA CA, 58,689,58, 89,53, CA, 58, 89,58, 89,98, 53, CA, 53, 6BB 
4918 DATA CA, 53, C9, 53, C8, 98,68€, 53, CB, 53, 88,53, 8B, 53, 88, 744 
4928 DATA 98,53,CB,53, 88,53, 8B, 53, 87,08, 53,CA, 53, 84, 53,681 
4938 DATA 84,53, 89, 68,53, CA, 53, 84,53, CA, 53, 89, 89, 53, CB, 677 
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4949 DATA 53,88,53,8B, 53,88, 89,53,CB,53,8B,53, 88, 53, 87,648 
4959 DATA 99,53, CA,53, BA, 53, 64,53,89, 88,53, CA, 53, BA, 53, 608 
4669 DATA CA, 53,89, 98,53, CB, 53,88, 53,8B, 53,88, 89, 53,CB, 679 
4978 DATA 53,68,53,68, 53, 87,48,53,CA,53, 84,53, BA, 53, 89, 649 
4988 DATA 89,53, CA,53, 84,53, CA, 53,89,98,53,CB, 53, 88, 53, 642 
4998 DATA 88,53, 88, 98,53, CB, 53,68,53,88, 58,87, 59, 87,40,5EE 
4189 DATA 53,CA,58,89, 58, 89,53,CA,58,89,58, 89, 88, 53, CA, 6BB 
4119 DATA 53,CA,53,C9,53, CB, 88,53,C8,53,88,53, 88, 53, 85, GFD 
4129 DATA 68,53, C8, 53, 88,53, 88,53, 84,98,53,C7,53,87,53,5EF 
4139 DATA 67,53,86,98,53,C7,53,87,53,C7,53,86,89,53, CB, 662 
4149 DATA 53,88,53,88,53,85, 89,53, C8,53, 88,53, 88, 53, 84,636 
4158 DATA 99,53,07,53,87,53,87,53,66,88,53,C7,53, 87, 53, 5EE 
4169 DATA C7,53,86,8,53,C8, 53, 88,53,88, 53,85, 99,53, C8, 664 
4179 DATA 53,88,53,88,53,84,98,53,07,53, 87,53, 87,53, 86,634 
4189 DATA 99,53, C7,53, 87,53, C7,53,86,88,53,C8, 53, 88, 53,638 
4198 DATA 86,53,85, 99,53, C8,53,88,53, 88,58, 84, 58, 84, 89, 5D9 
4289 DATA 53,07,58,86, 58,86, 53,C7,59,86, 59,86, 08, 53, C7, 646 
4218 DATA 53,07,53,C6,53, C5,98,53,CB, 53,88, 53, 68, 53,88, 798 
4229 DATA 69,53,CB,53, 88, 53, 68, 53,87,98, 53,CA, 53, BA, 53, 681 
4239 DATA 8A,53,89,98,53,CA,53,8A,53,CA,53, 89, 80,53, CB, 677 
4249 DATA 53,88,53,88, 53,88, 89,53, CB,53, 88,53, 88, 53, 87,648 
1256 DATA 99,53, CA,53,8A,53,84,53,89, 0,53, CA, 53, 84,53, 608 
4268 DATA CA,53,80, 89,53, CB, 53, 88, 53,88, 53,8, 8,53, CB, 870 
1278 DATA 53, 88,53, 88, 53, 87, 68,53, CA, 53, 8A,53, BA, 53, 80, 649 
4289 DATA 99,53, CA,53, 84,53, CA, 53, 89,48, 53,CB, 53, 8B, 53,642 
4299 DATA 8B,53,88, 98,53, CB,53,8B,53, 88,58, 87, 59, 87,89,5EE 
4389 DATA 53,CA,59,89, 58,89, 53, CA, 59,89, 59,89, 08, 53, CA, 6BB 
4319 DATA 53,CA,53,C9,53, C8,98,53,07,53, 87,53, 87,53,86,6FB 
4328 DATA 06,53,07,53,87,53,87,53,86,98, 53, C8, 53,88, 53, 5F0 
1339 DATA 88,53, 87,08,53,C8,53,88,53,88,53, 87, 99, 53,CB,62B 
4349 DATA 53,88,53, 88, 53, 88, 84,53, CB, 53, 88,3, BB, 53, 89, 64C 
4359 DATA 49,53,CB,53, 88,53, 88,53,88,99,53,CB, 53, 88, 53, 691 
4369 DATA CB,53,87,98,53,07,53,87,53,87, 53,86, 69,53,C7, 666 
4378 DATA 53,87,53,87,53,86,98,53,C8,53, 88, 53, 88, 53, 87,638 
4389 DATA 99,53,C8,53, 88,53, 88,53, 87,98, 53, C9, 53, 89,53, 5F6 
4399 DATA 89,53,86, 98,53, C9,53,89,53, 89,53, 86, 89, 53, C9, 628 
4489 DATA 53,89,53, 89, 53,86,89,53,C9,53, 86,53, C9, 53,86, 67B 
4419 DATA 99,53,07,53,87,53,87,53,86,09,53,C7,53, 87,53,5EE 
4429 DATA 87,53,86, 9,53, C8, 53,88,53,88, 53,87, 99,53, C8, 626 
4439 DATA 53,88,53,88,53,87,98,53,CB,53, 88,53, 88, 53,88,645 
4449 DATA 98,53,CB,53, 88,53, 88, 53, 88,98, 53,CB, 53,CB,53, 644 
4459 DATA CB,53,CB, 06,53, CB,53,CB,53,CB,53, CB, 89, 53,CB, 77F 
4468 DATA 53,88,53,88,53,86, 99,53, CB,53, 88,53, 8B,53,87,64B 
1478 DATA 09,53, CA,53, 84,53, 8A,53, 89, 08,53, CA, 53, 84,53, 648 
4489 DATA CA,53,89,98,53,CB, 53,88, 53,88, 53,88, 9,53,CB, 679 
4499 DATA 53,8B,53,8B,53,87,88,53,CA, 53, 8A, 53, 84,53, 89, 649 
4589 DATA 86,53, CA,53, 84,53, CA,53,89,99,53,CB, 53, 88,53, 642 
4518 DATA 8B,53,88,99,53,CB,53,88,53,8B,53,87, 89,53, CA, 637 
4529 DATA 53,84,53, 84, 53,89, 89,53, CA,53, 8A,53, CA, 53,89, 689 
4539 DATA 99,53,CB,53, 88,53, 88,53, 88, 99,53,CB, 53, 88,53, 694 
4549 DATA 88,59, 87,58, 87,80,55,CB, 86, 14, CB, 53, 88,53, 84, 5FŸ 
4559 DATA 99,55,CB, 98,93, 42,83,97,85, 15, 8E, 87, 1D, 89, B4, 4C8 
4569 DATA 35,99,5C,88, 53,88, 9,50, 88,53, 87,98, 13, 87,53, 49F 
4578 DATA 87,53,87,53,87,48,53,87,53, 87,53, 87,53, 87, 89,543 
4588 DATA 50,88, 53,88, 89,5C, 88,53, 87,98, 13,87, 53,87, 13, 584 
4599 DATA 87,53, 87,98, 13,87,53,87,13,87,53,87,89,5C, 88, 52D 
4688 DATA 53,88,98,5C, 88,53, 87,08, 13, 87,53,87,53, 87,53, 53 
4618 DATA 87,98,53, 87,53, 87, 53, 87,53, 87,99, 5C, 88, 53, 88, 5AE 
4629 DATA 99,5C,88,53,87,88, 15,87, 88, 15,87,99,5C,88,53, 42D 





4639 DATA 88,99, 5C, 88,53, 87,68, 13,87,53,87,53,87,53,87,56E 
4649 DATA 89,53,87,53, 87,53, 87,53, 87,08, 5C, 88, 53, 88, 98, 527 
4658 DATA 5C, 88,53, 87,99, 13,87,53,87,13,87,53, 87,80, 13, 4B9 
4669 DATA 87,53,87,13,87,53,87,48,5C,86, 53,88, 89,50, 88, 578 
4678 DATA 53,87,08, 13,87,53,87,53,87,53,87, 19,53, 87,53, 52F 
4689 DATA 87,53,87,53,87,99,5C,88,53,88, 98, 5C, 88,53, 87, 5BB 
4699 DATA 89,15,87,98,15,87,98,87,1F,85,56,53, 84,53, 84, 467 
4789 DATA 53,84,53,84, 09,53, 84,53, 84,53, 84,53, 82,98, 53,558 
4719 DATA 83,53,83,53,83,53, 82, 98,53, 83,53, 82, 53,83, 53, 5D8 
4728 DATA 82,09,53,84,53,84,53, 84, 53,83, 9,53, 84,53, 84, 58B 
4738 DATA 53,84,53,82,98,53,83,53,83,53, 83,53, 82,98, 53,556 
4749 DATA 83,53, 82,53, 83,53, 82, 98,53, 84, 53,84, 53,84, 53, 5DB 
4758 DATA 84,08,53,84,53,84,53,84,53,82, 0,53, 83,53, 83, 58A 
4768 DATA 53,83,53,82, 98,53, 83,53, 82,53, 83,53, 82,98, 53,554 
4778 DATA 84,53,84,53,84,53,83,08,53,84,53,84, 53,84, 53, 5E8 
4789 DATA C3,08,15,C3,88,15,C3,48,53,81,53,81,53,81,53, 542 
4798 DATA 89,08,53,81,53,81,53,81,53,88,99,53, 80,53, 89,575 
4886 DATA 53,89,53,81, 80,53, 89,53,81,53,89,53,81,99,53, 548 
4818 DATA 81,53,81,53,81,53,88,99,53,81,53,81,53,81,53,5CB 
4829 DATA 89,8,53,88,53,80,53,88,53,81,99,53,80,53,81,574 
4838 DATA 53,88,53,81,98,53,81,53,81,53,81,53, 89,89, 53,549 
4849 DATA 81,53,81,53,81,53,89,99,53,88,53,88,53,88,53,5C8 
4858 DATA 81,98,53,68,53,81,53,88,53,681,99,53,81,53, 81,577 
4869 DATA 53,81,53,80,08,53,81,53,81,53,81,53, C8, 98, 13,549 
4878 DATA C#,53,C1,53, C2,53,C1,98,53,C3,53,C1,53,D3, 53, 7Af 
4888 DATA C1,98,53,84,53,84,53,84,53,84, 08,53, 84,53, 84, 5CB 
4898 DATA 53,84,53,82, 98, 53,83, 53,83, 53,83, 53, 82, 89, 53,556 
4998 DATA CA,53,CB,53,DC,53, CB, 49, 53,84,53,84,53, 84,53, 78D 
4919 DATA 83,99,53,84,53,84,53,84,53, 82, 0,53, 83,53, 83,589 
4929 DATA 53,83,53,82, 88,53, DC,53, CC, 53, CC, 53, CC, 08, 53,684 
4938 DATA 84,53,84,53, 84,53, 84, 08,53, 84,53,84,53, 84,53, 5E1 
4949 DATA 82,88,53,83, 53,83, 53, 83,53, 82, 90,53, CA,53,CB,614 
4958 DATA 53,DC, 53,CB, 98, 53,84,53,84,53,84,53, 83, 89,53, 5FB 
4969 DATA 84,53,84,53, 84,53, C3,49, 53, C8, 53,C8,53, C8, 53,6EC 
4979 DATA C8,99,53,C8,53, C7,53,D5,53, C4, 88,53, 88, 53, 89, 6E2 
4988 DATA 53,89,53,88, 98,53, 89,53, 88,53, 80,53, 89,08, 53,545 
4999 DATA 81,53,81,53,81,53,81,99,53,81,53,81,53,81,53,5CC 
5888 DATA 81,40,53,84, 53, 84,53, 84, 53,84, 8,53, 84, 53,84, 5BB 
5818 DATA 53,84,53,B4,98,53,84,53,84,53, 84,53, 84, 89, 53, 55D 
5929 DATA 84,53,84,53, 84,53, 84,98, 53,88, 53,88, 53, 88,53, 5D5 
5438 DATA 89,08,53,88,53,88,53,68,53,88,98,53,81,53, 81,574 
5848 DATA 53,81,53,81,80,53,81,53,81,53,81,53,81,98,53,54B 
5858 DATA 82,53, 82,53, 82, 53,82, 08,53,82,53, 82,53, 82, 53, 53 
5869 DATA 82,89,53,82, 53, 82,53, 82, 53,82, 99,53, 82,53, 82,588 
5878 DATA 53,82,53, 82, 98,53, 68,53, 68,53, 88,53, 89,9, 53,549 
5888 DATA 89,53,89,53, 80,53, 80,09,53,81,53,81,53,81,53,5C8 
5899 DATA 81,98,53,81,53,81,53,81,53,81,8,53, 84,53, 84,57F 
5188 DATA 53,84,53,84,80,53,84,53,84,53, 84,53, 84, 99,53, 55D 
5118 DATA 84,53,84,53,84,53,84,08,53,84,53, 84,53, 84,53, 5E1 
5128 DATA 84,98,53,84,53,84,53,84, 53,84, 98,53, 84,53, 84,58€ 
5138 DATA 53,84,53,82,98,53, 83,53, 83,53, 83,53, 82, 89, 53,556 
5149 DATA 83,53,82,53,83,53, 82,98, 53,84,53, 84, 53,84, 53, 5DB 
5158 DATA 83,96,53,84,53, 84,53, 84, 53,82, 90,53, 83,53, 83,589 
5168 DATA 53,83,53, 82, 80,53, 83,53, 82,53, 83,53, 82, 46,53,554 
5178 DATA 84,53,84,53,84,53,84,88,53,84,53, 84,53, 84,53,5E1 
5189 DATA 82,80,53,83, 53,83, 53,83, 53,82, 08,53, 83,53, 82, 584 
5198 DATA 53,83,53, 82,98,53,84,53,84,53, 84,53, 83, 88, 53,559 
5298 DATA 84,53,84,53,84,53,C3,89,55,C4, 98,15, C4,88,55,56F 
5218 DATA 84,76,84,2C,83,87,85, 15,8E, 87, 1F, 89, 84, 35, 89, 4C8 
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5228 DATA 50,88, 53,88, 89,50, 8B, 53, 84,98, 13,84, 53, 84,53, 556 
5238 DATA 89,53, 89,95, 53, 84,53, 84,53, 89,53, 88, 89, 5C, 8B, 5BD 
5249 DATA 53,8B,69,5C, 88,53, 8A, 99, 13,84, 53,84, 08,93, 42, 461 
5258 DATA 21,48, CD, 11,98, CD, 91, 48,08, ED, BB, 21,DE, 94, CD,G4A 
5268 DATA 5F,93, CD, 19,BD, 21, C2,94, CD,4F, 93,21, EE, 94, CD, 828 
5278 DATA 5F,93, CD, 75,93, CD, 19, BD, 76, 76,92, CD, 89, 88, 34,6E8 
5288 DATA #C,88,FE, 85, 28,93, CD, 75,93, CD, 7E,93, CD, 85,93, 7FA 
5298 DATA CD, 1B, BB, 39,E3, CD, 93,88, 21,DE, 94, CD,5F, 93, 21, 779 
5369 DATA CF,94,CD,4F, 93,96, BC, 7E, 87, F8, ED, 79, 23, 94, 7E, 88C 
5318 DATA ED, 79, 23,95, 18,F2,AF,46,48,F5,E5, CD, 32, BC, E1, 848 
5328 DATA F1,23,3C,FE, 19,28, F1,01, 00,48, C3, 36, BC, 3E, 91, 566 
5338 DATA DD, 21,DC,94,C3, 98, 88,3E,09,FE, 89, 28, 20, 21, 34, 5A6 
5348 DATA 95, 7E, 23,B7,F2,91,93, 21, 34,95, 7, 22, 85,93, D6, 781 
5358 DATA 29,26,09,6F,11,FE,94, 19, 7E,26,98,6F, 11,98, C0, 455 
5368 DATA 76,29,87, 19, 22, 7F,94, AF, 30, 32, 7F,93, C9, 3E, 19,53 
5378 DATA 11,09, 26,05, 62, 68, 23, ED, A8, ED, A8, ED, AG, ED, A9, FA 
5388 DATA ED, AG, ED, AG, ED, AG, ED, A9, ED, A9, ED, AS, ED, AS, ED, BCB 
5308 DATA AS, ED, AG, ED, A8, ED, AS, ED, A8, ED, AG, ED, A9, ED, A9,B7B 
5498 DATA ED, A9, ED, AG, ED, A8, ED, A8, ED, AS, ED, AS, ED, AB, ED, BCB 
5418 DATA A9, ED, A8, ED, AB, ED, AG, ED, A8, ED, A8, ED, AG, ED, A9, BTE 
5428 DATA ED, AG, ED, AG, ED, A9, ED, A9, ED, AS, ED, AS, ED, AB, ED, BCB 
5438 DATA AS, ED, A6, ED, AB, ED, AB, ED, A8, ED, A8, ED, AG, ED, A6, BTE 
5449 DATA ED, A8, ED, AG, ED, A8, ED, A9, ED, AS, ED, Af, ED, AB, ED, BCB 
5458 DATA A9, ED, AG, ED, A8, ED, AB, ED, A8, ED, A8, ED, A9, ED, A9, B7B 
5469 DATA ED, A9, ED, AG, ED, A9, ED, A9, ED, AS, ED, AS, ED, AB, ED, BCB 
5478 DATA A9, ED, AG, ED, A8, ED, A8, ED, A8, ED, A8, ED, A9, ED, AG, BTE 
5488 DATA ED, A8, ED, A9, ED, A9, ED, AG, ED, AS, ED, AS, ED, AB, ED, BCB 
5498 DATA AS, ED, A6, ED, AB, ED, AB, ED, A8, ED, AB, F5, 34, 7F, 93, AA2 
5599 DATA FE,49,28,0F, 21,09, 89, 1B, ED, A9, 91,07, 00,99, 29, 334 
5518 DATA 7F,94, 18,04,3E, 30, 1B, 12,F1,D1,F5, 74, C6, 88, 57,62€ 
5528 DATA E6,38, 2, 14, 7A,D6, 49,57, 78,C6,5C,5F, 39, 94, 14,583 
5538 DATA 7A,E6,97, 29,84, 7A,C6,38,57,F1,3D, C2, BA, 93, 24, 6C 
5549 DATA 7F,94,81,7F,89,B7, ED, 82, 42, 22, 7F,94,C9, 91, 2E, 5AB 
5558 DATA 92,31,96,21,97, 22, 6C,8C, 60,68,88,91, 28, 82, 2E, 1E9 
5568 DATA 96,19,97, 1E,8C, 38, AD, 49, 88, 76,88, 13,03,96,0F, AE 
5578 DATA 19,19,1A,17,91,95,0E,0B, 11,94,87,88, 20, 1E, 76, 15D 
5588 DATA 2C,85,21,1F,29, 20, 20, 18, 20, 1D, 20, 22, 23, 24, 25, 287 
5508 DATA 26,27, 28, 29, 2A, 28, 14, 76,20, 4, 1C, 2C, 9,81, 92, 1FE 
5668 DATA 93,84,85,96,87,98, 89, BA, 8B, GC, 8D,0E, F, 18, 11,96 

5618 DATA 12,13,14,15,16, 17,18, 19,20, 76,28,9F, 43,58, 43, 253 
5626 DATA 26,49, 4E,46,4F,53, 29,58, 52, 45,53, 45, 4E, 54, 45, 425 
5638 DATA 26,34, 28,28, 41, 28,58, 29,59, 28,53, 2E, 76, 29, 86, 389 
5648 DATA 55,4E,28,53,48,4F,4F,54, 27,45, 4D, 27, 55,58, 28, 3F5 
5658 DATA 59,52, 4F, 47,52, 41, 4D, 4,45, 29,58, 41,52, 29, 46,413 
5668 DATA 41,42, 42, 40,45, 4E, 28, 46, 45,59, 63, 41, 62, 44, 28, àAQ 
5678 DATA 28,46, 45,46,45,53,53,45, 29, 2, 28, 49, 4C, 4C, 55, 3D4 
5688 DATA 53,54,52,45, 28,58, 41,52, 28,53,54,45, 59,48, 41, 426 
5698 DATA 4E,45, 28,53,41,49,4E,54,28, 4D,41,52,54, 49, 4E, 41D 
5799 DATA 29, 28,53,54,45,46, 29, 4F, 55, 28, 53,53, 4D, 29, 28, 39A 
5718 DATA 45,54,29,53,4F,4E, 4F, 52, 49,53,45, 28,58, 1, 52, 42E 
5728 DATA 28,47,52,45,47,4F, 52,59, 28, 43, 4C, 45, 4D, 45, 4E, 413 
5738 DATA 54, 28,28, 4D,55,53, 49, 43, 49, 45,4E, 28, 4F, 45,55, 492 
5749 DATA 56,52,41,4E,54, 28, 45,4E, 28,46, 52, 45, 45, 28, 4C, 3EC 
5758 DATA 41,4E,43,45,28,58,4F,55, 52, 29,55,4E, 45, 28, 53, 3F8 
5768 DATA 4F,43,49,45,54,45, 29, 44, 27,45, 44,49, 54, 49, 4F, 492 
5778 DATA 4E,29,46,52,41,4E,43, 41, 49,53, 45,28, 44, 4F, 4, 3FB 
5788 DATA 54,28, 4A,45,29,54, 41, 49,52, 41, 49,28, 4C, 45, 28, SRE 
5798 DATA 4E,4F, 40, 29,21, 28, 29, 76,28,08, 43, 4F, AD, 4D, 45, 383 
5869 DATA 29,56,4F,55,53, 28, 4C,27, 41,56, 45, 5A, 29,53, 41, SEA 
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5819 DATA 4E,53,29,44,4F,55,54, 45, 28,52, 45,4D,41,52,51, 42A 
5829 DATA 55,45,2C,28,4C, 45, 29,43, 4F,59,59,52, 49, 47, 48, 3FC 
5838 DATA 54,29,4E,27,45,53,54,29,58,41,53,29, 43, 4F, 52, 3DD 
5849 DATA 52,45,43,54,2E,93, 42,29, 29,45, 48,29, 92, 42, 49,31B 
5858 DATA 45,4E,29,43,27,45,53,54,28,54,4F,55,54, 29,53, 3E8 
5869 DATA 49,4D,58, 4C, 45, 4D, 45,4E,54,28,59, 41,52, 43, 45, 436 
5878 DATA 29,51,55,27,28,41,58,59,53, 28, 41,28,45,54,45, 3B1 
5889 DATA 29,52,45,54,41,52, 44,45, 29,59,41,52,28,51,55,3F4 
5899 DATA 45,40,51,55,45,53,28,92,42,55, 47,53, 29,54, 45, 3DB 
5998 DATA 4E,41,43,45,53,29, 21,29, 4A,27,41,49, 4D, 45,52, 3AA 
5918 DATA 41,49,29,44,27,41,49,4C, 4C, 45,55,52,53, 29,56, 3EC 
5929 DATA 4F,55,53,29,59,52,45,56,45,4E, 49,52, 29,51,55,448 
5934 DATA 27,41,56,45,43,28,55, 4E,28,43,59,43, 29, 44,45, 3AB 
5949 DATA 29,36,34,4B,2C,29,56,4F,55,53, 29, 4E, 27, 41,55, 399 
5958 DATA 52,45, 54,29, 4D, 41,4C,48,45,55,52,45,53, 45, 4D, 449 
5969 DATA 45,4E,54,29,59,41,53, 29, 44,45, 29,02, 42,52,55, 39F 
5979 DATA 49,54,41,47,45,53,2E, 93, 42,28, 44,45, 29,58, 4C, 395 
5989 DATA 55,53,2C,28, 4A,45, 29, 4E, 27,41, 49,29,58, 41,53, 3A6 
5999 DATA 29,59,55,28,4D,45,54,54,52,45,28,55, 4E, 45, 29, 3DE 
6999 DATA 4D,55,53,49,51,55,45, 2E, 83, 42, 76,28, 08,58, 4F, 309 
6819 DATA 55,52,51,55,4F,49,28,54,41,4E,54, 29, 44,45, 29, 495 
6929 DATA 48,41,49,4E, 45,29, 3F, 29, 4F,55, 49, 2C, 29,59, 4F, 3BC 
6435 DATA 55,52,51,55,4F, 49,28, 3F, 28, 28,54, 45,52, 29, 76, 416 
6949 DATA 28,98,4C,45,53,29,92,42,52,55, 49,54, 41, 47,45, 381 
6959 DATA 53,29, 3A, 29, 4D,41,4E,51,55,45,28, 44, 45, 29, AD, 3AA 
6969 DATA 45,4D,4F, 49,52, 45,29, 21, 76,29, 94, 4C, 41, 29, 4D, 396 
6979 DATA 55,53,49,51,55, 45,28, 3A, 28, 4C, 41,29,52,4F,55, 3F9 
6989 DATA 54,49,4E, 45,29, 44,45, 29, 40,55, 53,49, 43, 28,53, 3ED 
6999 DATA 54,55, 44, 49,4F,29,45,54,41,4E,54, 28, 31, 38, 29, 3C2 
6199 DATA 46,4F,49,53,29,54,52, 4F,58, 28, 4C,45, 4E,54,45, 42E 
6119 DATA 20,29, 4C,41,28,53,59, 4E, 43, 48,52, 4F, 29, 4E, 45, 3D2 
6129 DATA 29,53,45,28,46,41,49,53,41,49,54,29, 59, 4C,55, 3EA 
6139 DATA 53,29,59,4F,55,52,28, 4C,45,28,53, 43,52, 4F, 4C, 48D 
6149 DATA 4C,49,4E,47,29,48,41,52, 44,57, 41,52, 45, 28, 21, 3D9 
6159 DATA 93,42, 76, 28,98, 43,45,58,45, 4E, 44,41, 4E,54, 29, 395 
6169 DATA 52,41,53,53,55,52,45, 5A, 29,56, 4F,55,53, 29, 4A, 456 
6178 DATA 45,29,58,4F,53,53,45, 44,45, 28, 4D,41,49,4E,54,411 
6188 DATA 45,4E,41,4E,54,29, 4D, 45,53, 28, 59,52, 4F,58, 52, 42E 
6199 DATA 45,53,29,52,4F,55,54, 49,4E, 45,53, 29, 44,45, 29, 3FA 





6289 DATA 4D,55,53,49,51,55, 45,29, 45,54,2$, 4A,27,41,49, 3FD 
6219 DATA 29,51,55,41,4E, 44,28, 4D, 45, 4D, 45,28,58,55,29,3C2 
6229 DATA 4C,45,53,29,55,54, 49, 4C, 49,53, 45,52,29,58,4F, 434 
6239 DATA 55,52,29,4C,45,53,28,92,42,52,55, 49,54, 41,47, 3DB 
6249 DATA 45,53,28,21,76,29,98,45,54,28, 4D,41,49,4E,54, 3A9 
6259 DATA 45, 4E, 41,4E,54,28,51,55,45,4C,51,56,45,53,29, 42B 
6269 DATA 49,4E,46,4F,53,29,53,55,59,59, 4C, 45, 4D, 45, 4E, 458 
6278 DATA 54,41,49,52,45,53,2E,93,42, 76,28,84, 4A, 45,29, 384 
6289 DATA 53,55,49,53,28,41,43,54,55,45,4C,4C, 45, 4D, 45, 445 
6298 DATA 4E,54,2#,45,4E,29,54,52, 41, 49, 4E,29, 44, 45, 29, 3BC 
6399 DATA 44,45,56, 45, 4C,4F,59,59, 45,52,29,58,59,58, 48, 45F 
6319 DATA 4F,45,53,29,46,41,4E,54,41,53,59,2C, 29,55, 4E, 4ÿC 
6329 DATA 29,4A,45,55,29,44, 27,48, 45,52, 4F, 49, 43, 29, 46, 3AF 
6338 DATA 41,4E,54,41,53,59,28,41,55,58,29,47,52,41,58,428 
6349 DATA 48,49,53, 4D, 45,53, 29,41, 92,42,53,4F,4C,55,4D, 3FE 
6358 DATA 45,4E,54,289,53,55,92,42,4C, 49, 4D, 45,53, 29,28, 3B5 
6369 DATA 45,54,28, 4A, 45,29, 4D, 41,43, 48, 45,28, 4D, 45,53, 3CB 
6378 DATA 29,4D,4F,54,53,28,21,29,29,28,51,55, 49,29,53, 36F 
6389 DATA 45,52,41,29,45,44, 49,54, 45,28,58,41,52,28,55, 3DB 
6398 DATA 4E,45,29,53,4F,43,49,45,54, 45,28, 46,52, 41, 4E, 496 
6499 DATA 43,41,49,53, 45,29, 44, 4F, 4E,54, 29, 4, 45,28,54, 3DD 
6419 DATA 41,49,52,41, 49,28, 4C, 45,28, 4E, 4F, 4D, 29,28, 43, 3AC 
6429 DATA 45,28,4E,27,45,53,54,29,59,41,53,28, 4C, 41,29, 397 
6439 DATA 4D,45,4D,45,28,51,55,45,28,54,4F,55,54,29, 41, 3FC 
6449 DATA 29,4C,27,48,45,55,52,45,29,2E, 76,29,94,43,45, 385 
6458 DATA 29,4,45,55,28,53,45,52,41,28,4C,45, 28, 46,52, 3B8 
6469 DATA 55,49,54,28,44,55,29,54,52,41,56,41,49,4C,28,3FE 
6478 DATA 44,45,29,54,4F,55,54,45,28,55,4E, 45,29, 45,51,3F8 
6489 DATA 55,49,58,45,29,45,54,29, 4D, 4F,4E,54,52,45,52, 433 
6499 DATA 41,29,28,3F,29,28,51,55,45,28, 4C,45,53,29, 4A, 36A 
6599 DATA 45,55,58,28,53,55,52, 29, 44,49,53,51,55,45,54,44B 
6519 DATA 54,45,29,58,45,55,56, 45,4E,54,29,53,55,52, 43, 43D 
6529 DATA 4C,41,53,53,45,52,28, 4C, 45,53, 29, 4A,45,55,58, 42Â 
6539 DATA 29,53,55,52,28,43,41,52,54,4F,55, 43, 48, 45,29, 3F8 
6549 DATA 21,93, 42,29,29,43,45,29,51,55, 49,29, 44,45,56,33C 
6559 DATA 52,41,49,54,29, 43, 4F, 4D,92, 42, 4C, 45,52, 28, 4C, 3C2 
6569 DATA 45,53,29,55,54,49, 4C,49,53,41,54,45,55,52,53, 466 
6578 DATA 29,45,54,28,46,41, 49,52, 45,28,52, 45, 46, 4C, 45, 3CE 
6589 DATA 43,48,49,52,29,43,45,52,54,41, 49, 4€, 45,53,28, 4ÿ4 
6598 DATA 59,45,52,53, 4F,4E,4E, 45,53,2E,93,42, 76,29, 84, 3CA 
6699 DATA 56,4F,49,4C,41,2C, 29, 4A, 45,29, 43,52, 4F, 49,53, 3F6 
6618 DATA 29,51,55,45,28, 4A,27,45,4E,28,41,49,29, 41,53, 38D 
6629 DATA 53,45,5A,28,44,49,54,29, 28,3F, 93, 42,29, 28,45, 34D 
6638 DATA 54,29,53,55,52,28,43, 45,28, 4A,45,29,56, 4F,55, 3DF 
6648 DATA 53,28,4C,41,49,53,53, 45,29, 45, 4E, 29,56, 4F,55, 401 
6659 DATA 53,28, 44, 49,53, 41, 4E,54,29, 3,28, 41,29, 82, 42, 355 
6668 DATA 49,45,4E,54,4F,54, 29, 4A,27,45,53,5ÿ, 45,52, 45, 428 
667$ DATA 29,21, 76,29, 19,88,F3,21,93,76,11,49,09,81,00,34F 
6689 DATA 81,D5,ED,B9,C9,DD, 21,F4, 75,21, A4,9B, 11, FD, 26,837 
6699 DATA DD, 7E,99,FE, 42,28,22,DD, 7E,FF,FE, 92,28, 14,D5, 748 
6789 DATA 4F,96,99,54,5D, 1B, DD, 7E,FE, 77, ED,B8, DD, 2B, DD, 77B 
6718 DATA 2B,D1, 18,9C,DD, 7E, 98, DD, 28, 18,93, DD, 7E, 89, 77,578 
6729 DATA 2B,DD,2B, 7C, BA, 28, CC, 7D, BB, 28,C8,3A, 88, A7,F5, 74B 
6738 DATA 21,FF,AB,11,48,98,CD,CB,BC,F1, 32,98, A7,C3,FE, 7FB 
6749 DATA 26,98,37,06,00,69, 90,09, 80,09, 09,09, 00,08,00,95D 
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